£7 sistema más sabio 



PHILIPS introduce en España 
el HOMECOMPUTER más sabio, 
el sistema MSX, nuevo estandard 
mundial. 

¡Con cuanta sabiduría se ha 
pensado en cada una de sus 
características! 

Con el PHILIPS MSX puede 
realizar mil combinaciones 
de elementos: monitores, 
impresoras, floppys, programas 
educativos, de juegos y 
aplicaciones profesionales, gracias 
a su compatibilidad total tanto 
en hardware como en software. 

El PHILIPS MSX está tan 
sabiamente diseñado que Vd. 
puede elegir entre conectarlo al 
televisor de su casa, o a un monitor 
monocromo o de color. 

De igual modo puede utilizar 
como unidad de almacenamiento 
de memoria un cassette normal 
o un Floppy Disc del sistema 
MSX. 



¡Y qué potencia tiene el 
PHILIPS MSX! 

Es tanta, que si lo utilizamos 
con un Floppy Disc y junto a 
MSX-DOS, es compatible con 
sistemas de tipo profesional y de 
precio mucho más elevado. 

Y aquí no acaba la sabiduría 
con que ha sido creado el 
PHILIPS MSX. 

Puede hacerlo crecer según 
sus necesidades, desde un 
sencillo ordenador doméstico, 
con el lenguaje Basic más . 
potente del mercado, hasta un 
sistema de tipo profesional que 
puede llegar a una capacidad 
máxima de 1.024 K bytes. 

PHILIPS MSX. Nunca se le 
quedará pequeño, nunca se 
le quedará anticuado. 

PHILIPS MSX, creado como un 
equipo atractivo, fácil 
de usar y muy asequible de 
comprar. 



¡PHILIPS MSX, sin duda, el 
sistema más sabio! 

MSX-DOS es compatible con 
CP/M™ y posee la misma 
estructura de ficheros que 
MS-DOS™. 

Todos los sistemas MSX son 
compatibles entre sí. 




Q^i^^Sacon 

el campo del HOMECOMPUTER, 

eSa ^V)41 0 3 22 46 ° n ° 

["Desearía recibir más información"! 
i sobre el PHILIPS MSX. i 



Apellidos 




PHILIPS MSX HOMECOMPUTER SYSTEM 
El amigo sabio de la familia. 



PHILIPS MSX 

HOMECOMPUTER 
SYSTEM 

ESPECIFICACIONES 
TECNICAS 



Utilizando MSX-DOS™ e> 
CP/M™ y tiene la misma es 
que MS-DOS™ 



VW 0010. 40 columnas y VW 0020 de 80 col 



Velocidad de impresión 3! 



I i i ^ 500 K sin formatear (360 K 



l'-, ,l,s nMSX más de 150 título 
POrteTOM,! 'castre y Boppy de 3» 
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«Aguila Espacial» 



GOLF 

Magníf 





ESTRELLA 
DEL DESIERTO 



¡HOLA! ¡MSX, 
AL APARATO! 

Los microordenadores MSX puedet 
conectarse con infinidad de periféric 
y también entre sí y ¡por teléfono! 

[PROGRAMAS 



MONITOR AL DIA Pá g . h 

Las últimas novedades en el mundo del 
MSX. Aparatos, juegos, periféricos, 



QUE ES UN 

PROGRAMA Pá g .18 

J.C. González y Feo. Javier Guerrero 
explican algo más sobre lo que es un 
la de MSX. 
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Conocer el funciot 
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Editorial 



¡Hola! A partir de este número este espacio es- 
tará dedicado a exponer nuestra opinión y a cana- 
lizar las inquietudes generales de nuestros lectores 
sobre aspectos fundamentales relacionados con la 
norma MSX. 

En el poco tiempo que llevamos, muchos de 
nuestros lectores nos han inundado prácticamente 
de cartas de felicitación, de sugerencias de bienve- 
nida al mercado en su gran mayoría. Todas y cada 
una de esas cartas han sido leídas agradecida y 
i la medida de nuestras posibili- 



ial, aquellas que nos sugieren 
ón de cassettes grabados con 
duda alguna muy i 



d8 No obstante, en 
modo de tema edito] 
y nos solicitan la edic 
juegos. La idea es sin 

dos nuestros lectores. Pero un esfuerzo de 6 
turaleza, más allá de la inversión económica que 
representa, tiene que ir acompañado y avalado por 
un nivel de alta calidad técnica y un precio accesi- 
ble para el usuario. Nosotros no queremos caer en 
la tentación de editar cassettes MSX -como ya está 
sucediendo en el mercado- que a la hora de inser- 
tarlos en el ordenador no funcionen. Esta labor 
implica que no ha de quedar ningún cabo sin atar y 
que tanto la información, que debe de ser clara y 
precisa, como las grabaciones han de tener una ga- 
rantía incuestionable. 

En síntesis. Editaremos cassettes conceptual- 
mente entretenidos, técnicamente garantizados y 
atractivamente presentados. No cometeremos el 
error de hacer una chapuza, que en nada benefic 
a nuestros numerosos lectores. 



Línea directa ■ 



TRUCO PARA 

BORRARLA 

PANTALLA 



muchos lectores. Se t ^ ata jj C ' e 

mársele, para borrar la pan- 

pubar sSuTT+HOí^o 
teclear CLS y pulsar RE- 
TURN. Para evitarnos todo 
esto he descubierto que se 
puede reprogramar la tecla 
de función Fl, que es la me- 
nos usada, de la siguiente 



EL USO DE LA 
IMPRESORA 



He comprado una impre- 
sora Plotter Toshiba HX- 
10, pero no consigo hacerla 
funcionar porque no entien- 
do lo que dice el manual. 
Cuando ya tengo el progra- 
ma en pantalla inmediata- 
LLIST, como 



parece que es, pero 

de nada. ¿Mi J - 

qué me falta! 



jMe podrían decir 
Mariano Salvador 



Suponiendo que hayas 



, el paso siguien- 
te es comprobar que están be- 
chas todas las conexiones en 
el lugar apropiado. Una vez 
que sabes que hay una perfec- 

denador y la impresora, en- 
ciende ambos aparatos. He- 



a el progr, 
?y lístalo} 



comprobar que ni 

coloca LLIST y pulsa RÉ- 
TURN. En el mismo instante 
la impresora tiene que empe- 
zar a hacer su trabajo. 



JETMONSTER 
ESDE32K 




denador y si no es así si se 
puede simplificar hasta que 
quepa. También quiero sa- 
ber si pensáis editar casset- 
tes de software, como hacen 
otras revistas de ordenado- 



ra/ como colocamos en el 
encabezamiento de nuestro 
programa estrella, Jet Mons- 
ter es para 32K y tu ordent 
dor es de 16. El programa n 
se puede achicar -porque y 

puedes ampliar la memort 
de tu aparato con un cartuch 
de ampliación. 

Con respecto a la edición 
de cassettes, muy pronto to- 
dos nuestros lectores tendrán 
una agradable sorpresa. 



ERRORES DE 
PROGRA- 
MACION 



Al teclear el programa de 
«Carrera de caballos» he 
comprobado que hay un 
error en la línea 140 y quisie- 

corregirla. Lo mismo sobre 
la «carrera de coches». 

m Ju™ Bonilla 



A$:"":P=Ta=0:T=1:K= 
Con respecto a la «Cañe 
de coches» no hemos deteci 
donmguncr,,,, R , 

dar 'con el Irroj, '"enZnls" 



BIBLIOGRAFIA 
MSX 




«LOS SECRETOS DEL 
MSX», con lodo aquello que 

a tu máquina y sacarle el má- 
ximo rendimiento. 



ENVIO DE 
PROGRAMAS 



Me gustaría hacer un pro- 
grama y enviároslo, pero no 

DrrbrpoTotros. Croque 
los usuarios del MSX son 
muchos y el MSX CLUB 
debe llegar a muchos miles 



hlón de Anuncios, pero ten 
en cuenta que MSX CLUB 
DE PROGRAMAS es en sí 

tercambios. ¡Aprovéchala! 



¡COPIONES! 




^ Les escribo para felicitar- 

vista'dT MSX. S Yo, que me 
llamo jjosé Antonio Sánchez 

nffica revota e SUPER juí- 
GOS EXTRA MSX y ahora 
de MSX CLUB DE PRO- 
GRAMAS. En ambas he 



250 pts., y que trae muy po- 
cos programas y por si esto 
fuese ya muy feo, varios de 
esos programas ya fueron 
publicados por vosotros. 
José Antonio Sánchez 
(Madrid) 



Estimado amigo, le agra- 
decemos muchísimo su carta 
y también su confianza en no- 
sotros. Como la suya ya he- 



te, pero por otro lado nos sen- 



dialamente delectan el enga- 
ño. Para nosotros es la única 
arma hasta que aparezca la 
ley antipirata. 



LONGITUD DE 
PROGRAMAS 



Ante todo quiero felicita- 
ros por la magnífica t 
Es realmente una gran ayu- 
da para los que queremos 
aprender a utilizar el orde- 



empezamos y como comí 

teclearlos se nos hace n 
difícil detectarlos. \ 



¿María Sa 



Como verán me he susci 
toa la revista antes del 25 de 
mayo y espero que me toque 
esa grabadora Sony qt - 
anunciais. Pero aprovech 
para sugerirles que ponga 
más programas y sobre toe 
que sean largos, para que k_ 
prestaciones que se obten- 
gan después -ya sean ji 



WUcoJoséB, 



CLUB DE LA INFORMATICA, S.A. 

TODO EN MSX 
VEN A PROBARLOS 

C/Balmes ' 407 08022 Bareelona 



TABLON DE 
ANUNCIOS 




(.r.in.ul.i Kd'.CP.l. 



Tenemos en cuenta las su- 
gerencias de José María y 
trancha) José^que coinciden 

lar más programas de diver- 



BASIC MSX 



de programación para los 
principiantes. Es muy im- 
portante que esta revista pu- 
blique artículos así, porque 
hay muchos usuarios que, 



57. *l 



culos relacionados con el BA- 
SIC MSX, las técnicas de pro- 

iadeTdel MS&Estosartícu- 
los responden a sugerencias 



LO QUE ES UN 
SPRITE $ 



Me gustaría saber aunque 
parezca algo muy simple, lo 
que es un Sprite$, que veo 



de varios manuales, pero no 
lo explican con claridad. Es- 
pero que no les cause mu- 
chas molestias. 



ista256patro- 
II una clase de 
ó 64 de ellos, 



CHR$ (0). 

Para definir un sprite de I 

16x16, debes definir la total I 

de los 32 bytes en el patrón I 
del sprite. 

Tal vez el siguiente ejem- I 

te%c P h U o edaaClararmáSl0 



20 SPR1TE*C03=CHRÍC 163 + 
3+CHRÍC2553+CHR*(255 3+C 
+CHRÍC163 

32 PUT SPRITE 0. C 100.1 
40 GOTO 40 



| EL VALOR DEL 

CODIGO 

POSTAL 

Les escribo para comuni- 
carles que el número 2 de 
MSX CLUB a partir del cual 
me suscribí lo he recibido 
muy tarde con una leyenda 
de Correos que decía «De- 
morado». Les ruego que to- 
men las medidas oportunas 
para que esto no vuelva a 
ocurrir, pues en ese caso 
ncaiene sentido que me sus- 

Juan Carlos Iturriaga 
(Bilbao) 

^ Sentimos muchísimo que 

publicación, pero la responsa- 
bilidad no es nuestra ni tam- 
poco de Correos, pues hemos 
comprobado en su ficha que 
oportunamente no señaló el 
Código Postal de su domici- 
lio. Por lo tanto, y teniendo 
en cuenta que muchos ¡eclo- 
sión a pesar de nuestra expre- 
sa advertencia, le rogamos 
nos comunique telefónica- 
mente su D.P. para que el 



UN AMIGO 
MAS 



siendo de gran ayuda. Yo 
tengo un ordenador MSX, 
el HIT-BIT de Sony y desea- 



chicos/as de Vitoria que tu 
viesen un MSX para poder 

riendas a con""ordenado X r Pe " 
Rodolfo Sáenz deUgarte 

Gracias por las felicitacio- 
nes y nos alegramos que te 
seamos de gran ayuda. Esa es 
nuestra intención. Como jm- 



•>uedes comprobar que el me- 
: or intercambio lo puedes ha- 
:er a través de nuestras pági- 



E 
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¡¡NO ESPERES QUE PASE LA BANDA!! 
SUSCRIBETE A 



PORQUE MSX CLUB DE PROGRAMAS ESTA 
PENSADA PARA TI 

Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX CLUB DE PROGRAMAS en tu casa sino que recibirás 12 
números pagando sólo 10 

SUSCRIBETE Y GANA 
BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 

Nombre y apellidos 

Calle N.° 

Ciudad Provincia 



Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a | 
que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. • C/. R 
o mediante transferencia bancaria a favor de MANHATTAN 1 
Banco Central ■ Agencia 36 - Balmes, 386-0 



....e, 10-12-08023 Barcelona 
E ER 21 S 76 V 



Europa por correo aéreo Ras. 1.900- 
América por correo aéreo Ras. 3.700- 
Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB 



Programa estrella ■ 



AGUILA 
ESPACIAL 



Magnífico juego donde se po- 
nen de manifiesto el interés des- 
pertado entre nuestros lectores 
y la claridad de conceptos para 
desarrollar un programa. Nues- 
tras felicitaciones pues para Be- 
larmino Fernández Villaronga, 
de 16 años, de Santiago de Com- 




«Aguila Espacial» contiene las in 

Se juega con joystick y como todos i 
¡usceptible de ser mejorado. Tarea és 



«Aguila Espacial» - 



-.águila Espacial» consiste en con- 
ducir el Gran Pájaro Cósmico a través 
de los pasadizos de la Ciudad Prohibi- 
da, para lo cual tiene que eliminar a su 



ue ios pasadizos ae la 
da, para lo cual tiene 
Terrible Guardián y s 
^'rculos Naranjas. 



00 CLS:PLAY"A" . "3" : COLORIS, 1 , !5:'<EY0FF 
PRINT"EL JUEGO CONSISTE EN ATR.AUE 
SAR LA CIUDAD POR EL PASADIZO. PERO F 
ARA ELLO DEBEMOS DE ELIMINAR LOS OBSTACU 
-LOS QUE NOS IMPIDEN EL PASO. LOS TRES CI 
RCULOS DEL COLOR NARANJA " 

20 PRINT 

30 PRINT"EL COLOR NARANJA NOS CAUSA PAR 
LISiS MOMENTANEA y NOS DEUUELUE AL PUNT 

DEORIGEN. POR lO QUE DEBEMOS EUITAR TO 
CAR ESTE COLOR 0 SI i ü HACEMOS 'QUE SE 

EL MENOR TIEMPO POSIBLE 
40 PRINT 

50 PR I NT ''PARA PODER El ¡MINAR LOS OBJETO 
S TEN-OREMOS QUE MATAR AL GUARDIAN 
ADA UEZ QUE ELIMINEMOS UNO. LOS OBSTACULO 
SCAMBI ARAN DE COLOR Y ENTONCES PODRE-MO 
S ATRAVESARLOS SIN PROBLEMAS. CONSI -GUIEN 
DO TIEMPO EXTRA. 

160 LOCATE10. 20 :PRIN' "PULSA UNA TECLA" 
170 A$- INKEY$ 
180 IFA*=""THEN170ELSE!90 
~~i REM 



3 REM - 



210 REM BEL ARM I NO F0E7 L 
220 R 



230 REM SANTIAGO DE COMPOSTELP 

240 REM 

250 REM 7-5-1985 

260 REM -- --. — 

'270 REM .PREPARACION DE PANTALLA 

280 R ~ 



290 CLS:OPÉN' 
~ 3 SCREEN 2, 



320 A*^CH,R*C8.'.-np1 HR*ia,Hí83+CHR*C8.H3CD + 
CHR*C8.H7F] + ChR*i 8.HC3 J ' ChR* f 8-H83 1 i-CHR*C8,H 
2D+CHR*C8,H6) 

330 D*^CHR*C8,HF0 j+CHR*i 8.H38) *-CHRíC8,HD3+C 
HRSC8.H7D + CHRíC8.H31*CHRÍftH33+CHR*C8,H4 3 + C 
HR$ C8.HC 1 

340 CS = CHR*C8.HF1 + CHR*C&.H1C3 + CHR*C8,HB05 + C 
HR* C S.HE0 ) +CHR* f 8.HC0 1 +CHR$ ( 8.HC0 ) +CHR* C 8,H4 
01+CHR$C8.H60D 

350 B*^CHR*C¡5,H8 1 *CHR*f &,H18)+CHR*C&HBC^ 
HR*C8.HFED + CHR*f8.HC31 <-CHR*("«,HCl ,l + CHR*C8-h 
0D+CHR*C8.H601 

360 E*^ChRífiH8] tCHRífá.M81+CHR$C8KH8H-CHR 
*fS,H8:+ChR*f8.H8i < CHR*1 S.H8 3 + CHR*C8-H81+r " 
*f8.H81 
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340 T 
950 FOR «=! TO 48 
360 PSETC68+A.83, 1 
370 COLOR 1 

380 PRINT #1,CHR*C2193 
990 NEXT A:COLOR 15 

1000 CIRCLEC135.-62 3,4.9:PAINTC135.62 3.3 
1010 C IRCLEC 142. 993. 4, 9 :PflI NT C 142,993.9 
1020 (¡IRCLEC 174, 1503,4.9:PñINTC174, 1503 



1510 IF X>240 THEN X^240 

1520 IF Y<20 THEN Y=20 

1530 GOTO 1060 

1540 PUT SPRITE 1.CX.Y3 .12,0 

1550 PUT SPRI TE 0, CX+8, Y 3,12,1 

1560 GOTO 1060 



Y=30:X=30 



1050 H=10 
1060 H-H+l 



ÍTiriE/503 

080 J=INTCRNOC13*Y3 

090 S=INTCRNDC13*X3 

00 !F U>70 THEN GOTO 2250 

10 PSETfl76+U,83, 15:C0L0R 15 

20 PRINT#1,CHR*C2193 

30 IF U>50 THEN BEEP 

40 COLOR 15 

50 IF J<12 THEN J=2 

60 IF J>12 AND J<18 THEN J=6-v 

70 IF J>18 THEN J=+J 

80 C=H + J 

90 IF C >247 THEN C=C-J~S 

1200 IF C <0 THEN C=C+J+S 

1210 PUT SPRITE 9. CC, 1753.4,5 

1220 PUT SPRITE 10, CC, 1833 ,4.6 

1230 D=STICKC13 

1240 S-STRIGC I 3 

1250 IF S=-l THEN GOSUB 1580 

1260 IF D=0 THEN GOTO 1540 

1270 IF D=5 THEN Y=Y + T 

1290 IF D--7 THEN X=X-T 
1300 IF D=8 THEN X=X~T 
1310 IF D=8 THEN Y=Y-T 
1320 IF D=6 THEN Y=Y+T 
1330' IF 0=6 THEN X=X-T 
1340 P=P0INT CX+8.Y3 
1350 IF P=9 THEN GOTO 320 
1360 IF P=3 THEN GOSUB 1930 
1370 PUT SPRITE 1.CX.Y3 .12.3 
1380 PUT SPRITE 0. CX+8. Y3 , 12, 2 
1390 IF Y>195 THEN GOTO 2080 
1*86 IF v=16 THEN Y=:6 
X<3 THEN X=3 



1410 IF 
1420 IF 
1430 IF 



I THEN "i 
- THEN "i 
■ THEN > 



1450 IF 

1460 IF 

1470 U=POINT C 

1480 IF U=3 THEN GOTO 930 

1490 PUT SPRITE 0, CX+8, Y3 , 12, 2 

1500 PUT SPRITE 1,CX.Y3 ,12,3 




1570 REM 

1580 REM DISPARO- 
1590 REM 

" G.N SPRITE GOSUB 1710 

F0R*N--CY+!33 ro 216 STEP 24 

164-0 PUT SPRÍlE 2. fK.N+81. 15.4 
.650 PUT SPRITE 2. CK. NI. 15,4 
1660 NEXT N 



'.. C30.33D. 15.4 



1740 POR F=l TO 9 
1750 PLAY"U12L6405E 
U12L60O7G" 

FOR 1=170 TO ' 
1780 PUT SPRI TE 9, I 
1790 PUT SPRI TE 10, 
300 NEXT I 
510 E=-8*T 
1820 CIRCLEC23+E. 1; 
PAINTf23+E. 13' 



900 CIRCLEfl74, 150'j.4.3:PA!Nl 
3 :SPRI TE ÜFF 
1310 GOTO 1030 

1920 REM 

1930 REM**EL ¡minar OBS-ACUI O" 

1940 REM 

1950 IF T=7 THEN GOTO 1980 
- IF T=8 THEN GOTO 1990 
1970 IF T=9 THEN GOTO 2000 
3 CIRCLEC135.623.4, ! :PA 
GOSUB 2010:RETURN 
1990 CIRCLEC 142.993.4.1 :PA 
GOSUB 2810:RETURN 
2000 CIRCLEC 174. 1501.4. 1 
1 : GOSUB 2010:-RETURN 



105DU1206E". 



: 135. 621.1 
142.S9D. 1 
■i 174. 1501 



201Í 



FOR P 



. TO £ 



2020 PSETC 180< ArS!. 12:CÜLOR 1 

0 PRINT#1.CHR*C21S) 
2040 NEXT fí :T!ME=8 
0 RETURN 

2060 REM - 

2070 REM** FIN ** 

2080 REM 

2090 SCREEN 3 
2100 PSETf 70.901. 1 



2120 PRINT it 

2130 FOR A-l 

>140 SCREEN 

2150 PR-I.NI.ttl 



TO 1800: NEXT A 

:.0 

" QUIERES JUG«R OTRA UE 



2160 A$ - I NKEY* 

2170 IF A*-" "THEN 2160ELSE2180 
2180 i F A$-"S"THENCLO"" " 
2198 IF A*0"S"THEN 2210 
2200 GOÍO 290 
22: C ? CREEN 3 
2220 PSETf50.903. 1 



2250 FOR A-l TO 150 STEP 
2260 COLOR A/10. l.A/10 
2270 TOR Ui=lTO 300:NEXT U 
2280 NEXT 
2290 GOTO 2140 



12 




NOMBRE DEL PROGRAMA 

TIPO DE LISTADO Para ordenadores de K de memoria 

JOYSTICK O TECLADO 

INSTRUCCIONES DE CARGA: 

INSTRUCCIONES DE JUEGO: 

TIPO DE GRABADORA EMPLEADA 

MARCA DEL ORDENADOR 

NOMBRE Y APELLIDOS DEL AUTOR 

EDAD CALLE N.° 

CIUDAD D.P TEL 

Para uso exclusivo de MSX CLUB DE PROGRAMAS 

FECHA DE RECEPCION NOMBRE DEL EVALUADOR 

PUBLICABLE GRAFICOS SONIDO 

ORIGINALIDAD 

OBSERVACIONES 

Para todos aquellos listados que superen las 25 líneas es imprescindible enviar cassette 
grabado, con su correspondiente protección plástica. 



Remitir a: MSX CLUB - MI PROGRAMA 

Roca i Batlle, 10-12, bajos 08023 Barcelona 
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SVI-101 MSX 
JOYSTICK 



Un mando a toda prueba 




™us t utóo!romo < ^r«Í < raiS^ e H 
SVI-101 de Spectravídeo tiene estas 
cualidades. En primer lugar se adapta 



aguante los avatares de los distintos 
juegos. Sus dos botones de disparo lo 
hacen muy versátil lo que le permite 
responder con agilidad ante situacio- 
nes que se hacían complicadas con otro 
tipo de mandos. Su diseño está basado 
en los famosos «QuickShot», cuya cali- 



MICRO 
ORDENADORES 
MSX 



ional no ha entrado en una fase 

« sido altamente positiva. 

calcula que ya el parque existe 
: unos 100 mil aparatos. Si tener 
uenta que en Japón, el nivel de v 

es de- considerar que el éxito 
de considerarse rotundo. 



«ROBO», EL 
PRIMER ROBOT 
MSX 



la Europa el, 
i MSX. El pe 
, «Robo» y sil 



la Compañía Mitsu- 
to comercializará en 
rimer robot de la nor- 
¡droide se Ua- 



>r ahora es poco 
íertido de andar 

ríes posbiíidades del sistema para rea- 
izar un sinfín de actividades domésti- 
as. «Robo» es radiocontrolado y se 



levanta los brazos, 
positivos para 



TRINITON 




Si algo se pide a la hora de ver una 
imagen en pantalla y sobre todo si ésta 
es generada por nuestro ordenador 
MSX, es que esa imagen sea nítida y 
perfectamente definida. Estas cualida- 
des son las del «Triniton» de Sony, 
cuyo nombre técnico es KV-1430E. 
Este televisor de 14" tiene la misma de- 
finición de color y de línea comparable 
a los televisores de mayor prestigio del 
mercado. 

Pero lo más importante es su salida 
GT apropiada para conectar con cual- 
quier ordenador de la norma MSX, 
que se halla en la parte frontal del apa- 
rato lo cual da mayor comodidad al 



EL LASER DISK EN EL FUTURO DEL MSX 




La compañía JVC, que aún no 
lanzado su microordenador de 64K _ 
España, pero que muypronto lo lanza- 



o experimentos ce 



dor según las necesidades del usuario. 
Como un anticipo de lo que puede 

con un juego de carreras de coches que 
en cuanto se manipula el joystick las 
imágenes cobran — 
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Monitor al día 



SANYO YA SE 
VENDE EN ESPAÑA 



El MPC-lOO entra 




El microordenador Sam o del nnnlr 
lo MPC- 100 de 64K es un aparato muy 
interesante por su capacidad de memo- 



mendable para pequeños empresarios, 
para la contabilidad hogareña y la edu- 
cación. Entre las prestaciones que ofre- 
ce este aparato, además de su compati- 



bilidad con todo el software MSX. l.i 
inclusión de la versión Basic de Micro- 
soft 4,5 apto para uso empresarial. 
T.mibini podemos dcv.H ai mis inu-r 
faces para impresora de 8 bits paralelo 
centronic, bus de cartucho de 1 slot, de 
50 pins y de expansión de similares ca- 



HBM-16y HBM-64 
DE SONY 



ratos MSX se hacen mucho más poten- 
tes y versátiles para el uso cotidiano. El 
precio de estos cartuchos es de 8.500 y 
17.500 ptas. según sea de 16K o 64K. 



GEOGRAFIA DE 
ESPAÑA 




ADV.Wt.l . ..(,! ( K, RAFIA DE ES- 
PAÑA» muy recomendable sobre 
todo para aquellos fanáticos del MSX, 
pero que se han quedado cortos 



examen. Este juego es distribuido por 
ACE, S.A. y está disponible en todas 
las tiendas especializadas y en los gran- 
des almacenes. Su precio es de 1.900 




La compañía Sony ofr 
dad de ampliar la memoi 
nadores MSX mediante dos ca 
específicos de 16K y 64K. Con 
memoria RAM, es decir aque 
que tiene acceso directo el usuario, se 
amplía en tantos kilobytes como se de- 
de cada usuario. De este modo los apa- 



TENIS DE K0NAMI 



I.a famosísima productora di soliviare 
Konami ya comercializa para el MSX, 
uno de sus cartuchos de mayor éxito 
mundial Nos referimos al « Tennis», 
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»aMSX en cassette de Philips 




e los juegos de mayor éxito de 
os tiempos ya está disponible 
tte Philips. Se trata de «Zax- 
i juego espacial diseñado en 



una serie de armas terriblemente mor- 
tíferas. Cada una de las pantallas pone 
i prueba la habilidad del 



el piloto espa- 
:s, las baterías, 



SUPER 
GRABADORA 
PHILIPS 

Precisión en la lectura 



rerfac. 



orporado en el ordenador, 
por lo que basta con conectarla direc- 

dTIjmismoriemp^ 

control remoto desde el mismo orde- 

detalle de interés y también de gran 
utilidad para los usuarios cabe señalar 
la presencia de una led que ilumina 
para indicar el flujo de datos que se 
produce mientras se graba o se carga 
el ordenador. 



IMPRESORA 
SUPER 5 



La casa Arkofoto, S.A, -Nuñ< 
Balboa, 58, Madrid, P° de Gracia __ _ 
Barcelona y Gral. Dávila, 43 Santan- 
der-, dispone de la impresora Super 5, 
modelo EN-P-1091, ele notables pres- 
taciones para los usuarios de MSX y 
para trabajos de oficina. Entre sus cua- 
lidades técnicas destacamos su impre- 
sión en «near», su velocidad de impre- 
sión de 120 caracteres por segunde ' 
digos de comando compatibles co 
software standar de impresión, 



bits en paralelo, que la hace compatible 
con los aparatos MSX, y salida opcio- 
nal RS232. 



EL MANDO 
DEL SANYO 



El joystick que ofrece la casa Sanyo 
para sus micro ordenadores y todos los 
de la norma MSX, tiene dos virtudes 
importantes para el jugador. Por un 
lado es un mando que se adapta perfec- 
tamente a la mano y por otro da una 
gran capacidad de respuesta. El MJY- 

de goma que se adhieren a la superficie 
otorgando así mayor firmeza a los mo- 
vimientos. Y al igual que los joysticks 
más sofisticados del mercado, éste 
cuenta con dos botones de disparo 



quenmientos 



de cada ju 



Línea directa 



¿QUE ES UN 
PROGRAMA? 

Por Feo. J. Guerrero y J. C. González 



La respuesta a esta pregunta 
abre los ojos a un importante 
campo para todos aquellos 
usuarios de un microordena- 
dor. Pensando en lo que se en- 
frentan por primera vez a la má- 
quina, este artículo expone de 
un modo claro y sencillo todo lo 
que hay que saber sobre un pro- 



¿Qué es un programa? Para empe- 
zar podemos decir que es un conjunto 
de instrucciones que la máquina sabe 
interpretar y que posibilitan la resolu- 
ción de un determinado problema. El 
programa debe introducirse en la me- 
ló que tiene que hacer. Er \ 
nos sentamos trente a una máquina l„ 
nada sabe de nuestras intenciones. Ne- 
cesitamos proporcionarle 2 cosas: los 

te establecer claramente la distinción 



ra desarrollar un , 
unos pasos bien definidos: hac^ 
:n primer lugar un análisis de la si- 
ón que queremos resolver. Una 
lecho el análisis, hallamos el algo- 
> que mejor traduce el problema 



qjjjen conoce el BASIC 
do^fcOTcep^odé^lgod'n 

ALGORITMO 

Es más difícil definir y 
que el comprenderlo a 

e ' e Dado n uf raCtlC 



bién resolver el problema correcta- 
mente y sin que le quede ninguna duda 
de cómo debe hacerlo. Los algoritmos 
desempeñan un papel muy importante 
en la comunicación de métodos para la 
resolución de problemas y en particu- 
lar, en el trabajo informático. 

Puede demostrarse matemáticamen- 
te que con sólo tres tipos de est ruct liras 
puede resolverse cualquier problema 
que tenga solución. 



puede ser de tr 
nos hallamos e 



la solo 



ce al entrar y salir de él. De esta for- 



;structuras básicas hasta reproducir 
ina infinidad de circunstancias. La 
■ecta es la estrnctimi wuciicnil La bi- 
urcación es la estructura alternativa, y 
;1 circuito es la estructura repetitiva. 
/amos a estudiar por separado cada 
ina de estas estructuras básicas. Pero 
intes recordemos un concepto que es 
itil conocer, es el de análisis deseen- 
lente, y que se basa en una descompo- 



..roblen 
s. En esta descomposición 
i en un determinado paso del 
: va descomponiendo en ac- 
is elementales en el paso si- 
il proceso se repite hasta Ile- 
; acciones que sean inmedia- 



inicia cuando la que le preced 
La solución del problema s 
cuando finaliza la acción n. 
La notación que caracterú 



ACCION 1; ACCION 2; 
ACCION 3; 

ACCION 1 
ACCION 2 
ACCION 3 

Supongamos que queremo: 



SACAR TABACO 
( < )( ,1 K FUEGO 
ENCENDER CIGARRILLO 



ía un algoritmo secuei 
íes que hay que ejecut.. 
i unas a las otras en el orden 
i enunciadas. Si lo hiciéra- 
¡s, tendríamos algún proble- 
:n hacer, por ejemplo: 



ENCENDER CIGARRILLO 
COGER FUEGO 
SACAR CIGARRILLO 
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Programación , 



ESTRELLA DEL 
DESIERTO 



Este programa diseñado por González & Gue- 
rrero es un buen ejemplo de programa estructu- 
rado. En este sentido los REMS han sido coloca- 



fluas. Este listado se ha 
para presentar una película 
bre el modo de emplear el ordenador MSX como 
' >r de películas domésticas de vídeo. 



30 KEY OFF 

40 COLÜR 15,5,1 

50 SCREEN 2,3 

70 REM DIBUJO DEL CIELO 

90 FOR NX=1 TO 200 

100 X=RND(1)*255:Y=RND(1)*191 

110 PSET <x,n ,11 

120 NEXT 

140 REM DIBUJO DE LOS PLANETAS 

160 R=3.141593#/1B0 

170 CIRCLE (255,10) ,50,10 

180 PAINT (255,10) ,10,10 

190 CIRCLE (255,10) ,70,14, R*130, , .25 

200 CIRCLE (255,10) , 80,14, R»100,,. 35 

210 PAINT (255,35) ,14,14 

220 CIRCLE (40,30) ,20,9 

230 PAINT (40,30) ,9,9 

240 CIRCLE (120,100) ,20,11 ,R*100,R*265,1 
250 CIRCLE (140,100) ,30,11 ,R*140,R*225,1 
260 PAINT (105,100) ,11 ,11 
270 CIRCLE (20,160) ,20,8, , ,1 
280 PAINT (18,150) ,8,8 
290 CIRCLE (40,160) ,8,8,,,1 
300 CIRCLE (155,370) ,200,3, R*50,R*130,1 
310 PAINT (155,185) ,3,3 
320 REM PRESENTAC 
350 OPEN " 
360 DRAW " 
365 COLOR 1 



PRESENTACION DEL TEXTO 
! "BM65','45" ° UTPUT ^ #1 




380 



CLOSE 

REM LECTURA DATAS EN A(*> 

DIM A*(5) 

FOR MX = 1 TO 5 

FOR NX = 1 TO 8 

READ X* 

A* (MX) =A* (MX) +CHR* < VAL ( "8<B" + X*> ) 
NEXT NX 
NEXT MX 

REM CONSTITUCION DE LOS SPRITES 

SPRITE* (5) =A* ( 1 ) rSPRITE* (6) =A* (2) +A* (3) +A4 

REM BUCLE QUE GENERA LOS DESPLAZAMIENTOS 

X1=15:X2=245:K=2 

FOR X=X1 TO X2 STEP K 

Y=SIN <T> *30+50+X* .25 

Yl=80+X*.8-30 

PUT SPRITE 5, <X,Y) ,10,5 

REM APARICION DEL VEHICULO ESPACIAL 



650 IF Yl>191 THEN 710 

660 PUT SPRITE 6 , ( X*l .5 , Y 1 ) ,6 ,6 

670 FOR L=l TO 20¡NEXT L 

680 IF YK35 OR Yl>150 THEN 710 

690 PUT SPRITE 6 , ( X*l .5 , Y 1 ) , 15 ,ó 

700 FOR L=l TO 20 :NEXT L 

710 REM 

720 REM SONORIZACION DEL MOVIMIENTO 

740 IF (X MOD 5)=1 THEN PLAY "V1505L64AF" 

750 T=T+R*18:NEXT 

770 REM CAMBIO DE DIRECCION 

790 SWAP X1,X2:K=-K 

810 REM SONORIZA EL CAMBIO 

830 PLAY "VI 505L64 ABCDEF " 

850 REM BUCLE INFINITO 

890 REM DIBUJO DEL INVASOR SPRITE* (5) 

910 DATA 00100100 

920 DATA 00011000 

930 DATA 00111100 

940 DATA 01100110 

950 DATA 11011011 

960 DATA 01111110 

970 DATA 00100100 

980 DATA 00000000 

1000 REM DIBUJO DEL VEHICULO SPRITESÍÍ 
1020 DATA I?"*""' 



1030 DATA 00000000 
1040 DATA 00000000 

1050 DATA 00000000 
1060 DATA 000000U 
1070 DATA 
1080 DATA 
1090 DATA 00010010 
1100 REM 

1110 DATA 00110010 
1120 DATA 01111111 
1130 DATA 11111111 
1140 DATA 00011100 
1150 DATA 00001000 
1160 DATA 
1170 DATA 
1180 DATA 
1190 REM 

1200 DATA 00000000 

1210 DATA 



1220 DATA 
1230 DATA 
1240 DATA 
1250 DATA 
1260 DATA 11110000 
1270 DATA 01001000 
1280 REM 

1290 DATA 01001100 
1300 DATA 11111110 
1310 DATA 11111111 
1320 DATA 01110000 
1330 DATA 00100000 




1340 Di 
1350 DATA 00000000 
1360 DATA 
1400 OPEN 
1410 PRESET ( 35,140) 
1415 COLOR 15 
1420 PRINT #1,' 
1430 GOTO 1430 



♦•ESTRELLAS DEL DESIERTO**" 



Programa estrella ■ 



GOLF 



Este programa de Juan J 
Diez-Miguel Sánchez se ha ga- 

el estrellato en nuestro EXTRA 
DE VERANO, pues es une ' 
los más entretenidos y trab 
dos que hemos recibido. ¡Fe 
taciones! 



Instrucciones 

golf. Para cubrir dicho recorrido disponemos de 8 palos, los 
cuales del 1 al 7 mandan la pelota a diferentes distancias, 
mientras que el octavo se utiliza para golpear la pelota en los 
bunkers de arena. El palo número 1 se destina para golpes 
cortos (putt), por lo que no da elevación de pelota. 

En este juego tienes que, además de elegir el palo adecua- 
do para cada tiro, fijar la dirección de la pelota establecien- 
do el ángulo correspondiente entre 0" y 360°, introduciendo 
en el ordenador tres cifras, de modo que si deseas 45° debes 



nador MSX elige auton._ — 

dejas esto al aparato éste lo 



igulo que cr< 

> nará aleatoriamente v ] 

enviarte la pelota a las nubes o dejártela en el bunks 



posición 
En la 



enviada fuera del green, 
ruenta un golpe más. 
mierda aparece un contador elec- 



i parte inferior izquierda aparece un contador elec- 
de los golpes que llevas y al conducir el hoyo te indi- 
cual es tu posición con respecto al par. 



- Utilizar 



Díaz-Miguel Sánchez 
:r mejorado y da una se 
antidad de hoyos, por ejemplo. 
ds mismos colores: 7 para el agua; el 10 para los 
bunkers; el 12 para el green; el 2 para el campo y el 14 
para la bandera. No utilizar estos colores para otros ele- 

• Emplear las subrutinas 5000 para el hoyo 2; la 6000 para 



sítete 



ur seguridad co 
4000 y 4800. 



ne estudiar el hoyo 1 en 



20 REM ****** 
25 COLOR 1.10. 1 
30 PI=ATNCn*4 
35 OPENPGRP:" A! 
40 SCREEN 2 

50 GOSUB 1000 
55 GOSUB 1200 



85 GOSUB 2000 

90 0N SPRITE GOSUB 2700' 

95 SPRITE ON 

"00 Aí="U12T200O6L8EDL4CO5AO6D< :r EL8DCO5L4 
l06L8EDL4CL805BAL2GttíV' 

05 C$="U9T200R2O3L8AGL4FDEF#G#EADEEL2íV' 

10T200O5L8CO4BO5L4CL8DEL4FL8O4B 
^805CDL4E04L8AGL4h05L8DCL204BD5C" 

PLAY A*'.C*.F$ 
GOSUB 2200 
P*=0:AL=0:BE=0 
A*=INKEY* 

f>*=»» THEN 140 

P*<1 0R P*>8. THEN GOTO 140 
GOSUB 2250 :E0R 1=0 TO 600:NEXT I 
GOSUB 1400 
GOSUB 2300 



•HEN GOTO 215 

;UB 2380 :F0R 1=0 TO 600:NEXT I 
^A**B*'-C* 

AL>359 THEN AL=0 
GOSUB 1400 

P*=8 THEN BE=INT|-RNDC-rinE]*4 

P*=t THEN BE=0:GOTO 325 
GOSUB 2400 
A*=INKEY* 

THEN 270 



3:BE=0:GOSUB 1400 



305 GOSUB 2480: POR 1=0 TO 600:NEXT I 
310 BE*=A$+B* 
315 BE=UALCBE*5 
"1 IF BE>45 THEN BE=45 
325 GOSUB 1400 
330 G*=G*+1 
335 GOSUB 2500 
340 GOSUB 1600 

345 ON P% GOTO 350.355.360.365.370.325.3 
80.385 

350 E=10:GOTO 390 
355 E=50:T=7:GOTO 390 
360 E=100:T=8:GOTO 390 
365 E=150:T=9:GOTO 390 
370 E=200:T=10:GOTO 390 
375 E=250:T = H :GOTO 390 

0 E=300:T=12:GOTO 390 — 
385 E=75:T=8:G0T0 390 
390 Q=CINTCE*256'10005 
395 B=BE*2*P 1^360 

' IF Pü=l THEN F=0:R=4:GOTO 415 
F=CINTCC2*Q*SINCB5 1xSQRC25 1 



420 > 
425 V 



TCF*S1N 



430 IF P*=l THEN GOTO 475 
435 XC=CX+X1 V2:YC=CY+YU-'2 

-X13~2+CY-Y1D~25 V2 
445 PLAY"U10T255B" 

450 IF X>=X1 AND Y>=Y1 THEN GOSUB 2800 
455 IF X>X1 AND Y<Y1 THEN GOSUB 3000 
(<X1 AND Y>Y1 THEN GOSUB 3200 
465 IF X=<X1 AND Y=<Y1 THEN GOSUB 3400 

1=0 TO 200:NEXT I 
475 PUT SPRITE 1 . CXI . Yl 3 , 1 . 2 
480 D=P0INTCX1.Y15 

=7 THEN GOTO 800 
=10 THEN X=X1 :Y=Y1 :GOTO 900 
495 FOR 1=0 TO 2*R 

1 TO 200:NEXT 
rt2*COSCflJ3:Y 



..rxi. 



INTC2*SINCA3 5 
13.1.2 



000 REH DEFIN 
005 FOR 1 = 1 T( 
010 READ Bí 

020 NEXT I 
025 SPRITEÍf 
"~ FOR 1=1 TO 8 
035 READ C* 
04-0 D*=D*+CHR¡ 
045 NEXT I 
— SPRITESC2: 
055 DATA! 1000000 
060 DATA1 1000000 



¡ D=POINTCXl.Y15 
1 IF D=7 THEN GOTO 800 
535 IF D=10 THEN X=X 1 : »--» 1 : GOTO 900 
~'0 NEXT I 

5 FOR J=l TO 200:NEXT J 
550 0=POINTCXl,Y15 

555 IF DO10 AND 0O12 AND D<>7 AND D<>2 
AND D<>14 THEN GOSUB 2000 :P*=0 : AL=0 :BE= 
0:GOSUB 1400:GOTO 130 
560 X=X1 :y=Y1 

565 P*=0:AL=0:BE=0:GOSUB 2000:GOSUB 1400 

570 GOTO 130 

800 FOR 0=1 TO 500 

805 XO=CINTCO*COSCA35 :vo=CINTCO*SINCA31 
- - X=X1+X0:Y=Y1+Y0 



UALC"&B"+C*55 
=D* 



070 DATA00000000 



05 DATA00000000 



210 PSETC3 
215 LINEC3, 
220 PSETC3, 2: 
225 PSETC3,3' 
230 PSETC3, 
235 PSETC3.5: 
240 PSETC3,6 
245 PSETC3, 
250 PSETC3.8: 
255 PSETC3.9: 
260 PSETC3.101 
265 LINEC48.03 
270 LINEC95, 18. 
275 LINEC108.2: 
280 DRAUTCIBMII 
285 CIRCLEC 108 

290 PSETC93, 10 
295 PSETC54.35 
LINEC53.12 
305 PSETC50.20 
310 LINEC128.0 
315 LINEC170. II 
320 PSETC134.3 
325 LINEC133.125-C163.12: 
330 PSETC134,205.11 :PRIN" 
335 DRAW"ClBrl202. 18H14" 
340 CIRCLEC186.333.SQRC32~2--23. 1.3. 

.3*3. 1416'4 
345 CIRCLEC 202. 185 . 8. 1 . 3*3. 1416^4. ; 

358 PSÉTC130.213.J1 :PRINT#1. "8- 
355 RETURN 

400 REI EXPOSICION DEL PALO, ANG. a •> 



5:PRINr*tl. 
5:PRINT#1 . 
5:PRINTttl. 
5:PRINTttl. 
15:prIS- 



207.293,11.BF 
1202. 185, 1 
NTttl t "ANGB " 



Programa estrella ■ 



1415 PSETC3, 125 3. 13 :PRINT#1.'V=" : 

1428 PSETC3. 1353. 13 iPRINT#l. "8=" : 
1, JSING"*#*" ¡BE 
1425 RETÍ IRN 

1600 REM EXPOSICION DE GOLPES V f= 
ERMINAR EL HOYO 

1605 LINET0, 1433-C47, 1911, 5, BF 



2500 REM "PEL O TA EN MOU [ M I EN r O 

2505 L [NEC48, 180) -f256. 1913. 15. BF 

25>0 PSErr50, 184), 15 :PR!NT#! , " OELO T A E 

N MOUIMIENTO" 

2515 RETURN 

2700 REM CHOQUE DE SPRITES 

2705 Pl.pv [ 4CCC-, •■U14R4L404EE-, -U15R4R4L 

404G" 

2710 PLQv U151.405CCC", ■U10L4O4CCC'■ , "U15L 



1820 F 
S!,üSING"ntt" :K*¿ 
1825 RE 1 URN 

2000 REM POSICIONOMIENro DE SPRITES 
2005 PUF SPRirr 2 , r XH, vm , 1 , i 
2010 PUT SPR!f 
2015 RETURN 
2200 REI "METE POLO" 



3.1811- 
2210 PSET 149, 1833, 



2305 L INEC48, 1 
2310 PSETf 50. 1 
3 CIFRAS=" 



1921. 



, 1831. 15:DRINTiti ( 



2350 RETURN 

2360 REM METE 02 

2365 PSETC225. 1833. 15:PRINTt»l 



2390 RETURN 

2400 REM "METE B" 

2405 LINEC48. 181 1-C256. 1923.1 

2410 PSETC49. 183). 15:°R!NTttl, 

N 2 CIFRAS-' 

2415 RETURN 

2440 REM METE 81 

2445 PSETC225. 1831. 15:PRINTttl 



2450 RETURN 
2480 REM METE B2 

2485 PSETC235. 1833, 1 5 :PR INT# 1 , USING" i» 



2490 RETURN 



:f48»i 



2818 Zl--vCfSÜRlí 
2815 PUT SPRITE 
2820 NEXT ■ 
2825 FOR 
2830 22 - vi 
2835 PU' • 



f 256. 15 



3. 15. B^ 



3 :NEX T I 
1 CUANDO X 



284e 



'RITE 



3035 PUT S! 

3045 RETURN 
3200 REM TRdVECTOR 
3205 FOR 1= ' ~ 
3210 Z1--YC+SUR1 q«S 
3215 PUI SPRITE 1,1 
3220 NEXT ! 
3225 FOR !=XC-H tq 
3230 Z2=vc-SQRCABS 
3235 PUT SPRITE 1. 
3240 NEXT [ 
3245 RETURN 
3400 REM i-RAVECTOR 



3420 NEXT I 
3425 FOR I^XCfH TQ 
3430 Zl--VC + SQRrABS 
3435 PUT S°RITE 1, 



4015 L INEI53, 139) - 
4020 CIRCLEf85,693 
4025 CIRCLEr85,73), 



CUANDO \<X\ V 
■H STFP -i 

2-CI-XC)"233 
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El MSX por dentro. 



¡HOLA! AQUI 
MSX AL APARATO 



La entrada RS-232C es la puerta que 
usan los MSX para conectarse 



nicar un ordenador ci 
fácil de lo que puede suponerse. 



US 



ugar que los d¡ 
:cionales o bidi: 



trada RS-232C y, en principio, no tie- 
nen porqué devolver los datos al orde- 
nador, pero suelen hacerlo. Las razo- 
nes las veremos más adelante. 

El modo de conexión 

La práctica común para una entrada 
RS-232C es la de conectar los aparatos 
MSX entre sí a través de un modem y 
una línea telefónica. Pero la variedad 



Para tener una idea clara de lo que 
sucede con los datos en el interior del 
ordenador, llamaremos palabras a los 
grupos de 8 bits. Una vez determinado 
esto recordaremos que todas las comu- 
nicaciones que se realizan a través de la 
RS-232C utilizan los caracteres del len- 
guaje ASCII, de modo que cada pala- 
bra consiste en un número de bitoque 



Entrada RS-232Cd( 



>rdenadorMSX. 

atos que pueden ser conectados 
rada significa que tenemos que 

para cada 



ite di- tipo RS-2 

Esto se debe a res de si 

.. ordenador envía o busca el conju 

modo automático, lo cual ASCII n 



uando tiene que realizar la 



Una palabra de datos que 
entrada RS-232C puede rep 
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El MSX por dentro 




del siguiente modo, leyéndolo desde 
derecha a izquierda: 
ENTRADA Plnnnnnnn0 PERIFE- 
RICO 

Los bits «nnnnnnn» representan un 

de siete bits, mientras que el bit «0» 
identifica el principio de la palabra de 
datos, la cual es muv necesaria para la 

ordenador y el periférico no suelen te- 
ner el mismo timer (reloj). El .. 1 .> imal 
es el bit de parada e indica el final de la 



denes Xon/Xoff, el final de t 
de datos por medio de EOL y el final 
de una columna con la especificación 
EOF. En muchos casos estos caracte- 
res son definidos por un uso normal. 
De todos modos, hay suficientes ex- 
cepciones en la actualidad como para 
que sea necesario, cuando se 



se programa 




La «P» es el llamad, 
rontrol de paridad. E: 
:ional que puede ser 



En este mismo sentido hay otro deta- 
lle que tiene que ser tenido en cuenta. 
Se trata de las funciones originarias de 
la tecla SHIFT-INT/OUT. Esta tecla 
ha sido configurada también para in- 
troducir en el ordenador en el modo de 
conjuntos de caracteres japoneses, por 
lo que la entrada tiene que programar- 
se para que ignore el carácter produci- 
do por esta tecla en sus versiones occi- 



Ordenes de control 

Las órdenes de control de datos son 
obviamente muy necesarias. El fluido 
de datos se controla a través de las ór- 



recibido la totalidad de los 
siete bits. Todos los datos que entran 
después los ignora hasta el momentc 
en que haya impreso el carácter, Pot 
este motivo las impresoras y muchos 
otros periféricos tienen un tope y un 
método por el cual el ordenador detie- 
ne el envío de datos cuando se llega 
dicho tope. 



Flujo de datos 



Come 



e datos puede ser controlado 
los caracteres Xon/Xoff devueltos al 
ordenador a través de los hilos de 
transmisión de datos o activando el 
hilo «hand-shaking» (CTS) para que 
cumpla la misma función. 

Del mismo modo que impresoras y 
otros periféricos tienen topes, también 
lo tiene el ordenador para recibir datos 
procedentes del exterior. Esto quiere 
decir que necesita una manera de dete- 

El carácter Xon o Xoff puede cumplir 
con esta función o empleando el hilo 
RTS. Cuando el ordenador está conec- 
tado a otro ordenador vía modem, el 
único «handshaking» que puede con- 
trolar el ordenador distante es el carác- 
ter Xon/Xoff. 

i! ios que empleen adaptado- 
res MSX, como los Je Toshiba por 
ejemplo, tienen la suerte de que la pro- 
gramación de entrada ha sido simplifi- 
cada por el firmware interno, lo que 
significa que está contenida dentro de 
un ROM en el interior de un cartucho 
adaptador. 
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LOTO 



Para que te prepares para el 
juego de moda del próximo oto- 
ño te adelantamos este progra- 
ma. Se trata del «Loto», cuya 




La máquina te preguntará por qué números apuestas y tú se lo indio 
ras, seguidamente aparecerán en pantalla señalados los boletos con Ic 
números sorteados. Muy pronto comprobarás que es un buen ejercici 
para cuando tengamos este juego en España. 

Por si quieres introducir mejoras, te damos la lista de variables: 



>n números de 7 a 10. 



>n con números de seis cifras y las múltiples 



10 REM**LOTOCALEATORI01*** 

20 RErt**— -MSX-CLUB ** 

30 DI MAC 49) 

40 SCREEN0:COLOR 4. 1'. 1 :KEY OFF 

50 A=RNDC-CTinExl05l-|OO 100) 

60 INPUT" NUMERO DE CIFRAS A TIRARC6-! 

70 IF N<6 OR N>10 THEN 40 
80 REM***T IRADA*** 

90 REM 

100 FOR 1=1 TO N 

110 A=INTfRNDC 1 }*49 1 + 1 

120 IF ACA]=1 THEN U0 

130 ACA1M 

140 NEXT I 

150 OPEN"GRP:"FOR OUTPUT AS#1 
160 REM***RESULTADO*** 

120 REM 

180 SCRCEN2:DRAW"BM122.0" :PRINT*1. "LO 

190 LINEf72. 171 -f 198. 1813, 8. B 

200 FOR 1=0 TO 9 

210 FOR J=0 TO 40 STEP 10 



2 ñ 



X=10 + J^10*3:v--3 
DRAUI'"BM" J-STRÍCX: 
. .USING"!»»" .I+J 
L INECX*8-2, Y*8-31-rX*8+16, 



260 IF ACI + J1--1 
8+15.YÍ.8 + 81 
270 NEXT J 
280 NEXT I 
290 LINE INPUT f 



+STR*CY*8D :f 
■ 8+9 } . i 
TXX8, Y*8-25-( 



30 





Para que no te quedes fuera programa tienes que darle la 
de hora, aquí te insertamos un hora, los minutos y los segun- 
programa que pone en pantalla dos y comenzará a funcionar 
un reloj. Este reloj MSX puede mientras en pantalla aparece la 

RELOJ -SCI SISE-- 


10 REI"!*** RELOJ *** CINni40-65*S!NC 1 3 3 3 + "."+STR*tINTCC100+6 
20 REM** nsx-CLUe** 5*C0SÍ 15 3 -6) 3 :PRINT*1 . R IGHTíf STRí C2'53 . 1 
25 RE !í ************* 3:G0T0 610 

36 SCREEN0 :C0L0R 15.1.!:KEY OFF 590 □ RAurP.M ' *S1 R*C INTf 140-65*SINC I 3 3 3 + " , 


50 H=H*5+!NTCPV123 $ÍSTR$C2'53. 1 3 

60 Din XC623.YC623 600 !F 2'5>5 THEN DRAUTBM " + STR$ C I NT C 1 40- 
70 SCREEN2 65*SINC ! 31-63+" . "+STR4C INTC ¡00+65*COSC 13 
80 OPEN' GRP: 'FOR OUTPUT ASttl ] 1 :pri n r tt ! . n ! Di C STRS C 7'5 3 . 2 . 1 3 


90 GOSUB 500 6'0 2--Z+1 
95 PSETC 10. 03 :PRlNTttl . "PONTE EN HORA CON 6 20 NEXT ! 
..." 630 XC13--XC613 :-'C!3-YC613 


96 PSETC 1 0. 1803 :PR I NT8 1 , " MSX-CLUB DE PR 640 RETURN 
nr,Ponaq" 


100 AÍ=INPUT$C 1 1 




180 REn**[10U¡ MIENTO DE LAS AGUJAS** 

190 REH 

200 TME=0 
210 A-T IME 

220 IF A<B THEN B=B-65536! 

230 1F B+50 < A THEN B=B+50:S=S+1 ELSE 2 




240 IF S<60 THEN 330 

250 S=0:M=M+l:IF n<60 THEN 270 

270 IF INTCM'123<>rV12 THEN 320 
280 H=H+1 

290 IF H<60 THEN 310 
300 H=0 




310 LINEf 140, 1003 -f 140-30*XCH+13, 100+30* 
YCH+133. 1 




320 LINEf 140, 1 003 -CI40-40*XfriH 3. 100+40* 
YCn+131.1 

330 LINEf 140. 1003 --C 140-48*XCS+13. 100+48* 
YCS+133. 1 




340 LINEf 140. 1003-C 140-30*XCH+23. 100+30* 
YÍH+23 1 

350 LINEf 140. 1003-C140-40*XCri+23. 100+40* 
YCn+231 

360 LINEf 140. 1003-f 140-48*XCS+23. 100+48* 


^^^^ 


YCS+23 3 

370 GOTO 210 

480 REn**0ISEÑ0 DEL RELOJ** 
-490 REH 




500 CLS 

510 CIRCLEfl40. 1003.80.6 

520 FOR I=-3.1415 TO 3.1515 STEP. 104717 

530 PSET f 1 40-50*S INC I 3 . 100+50*COSC 13 3.5 

540 Xf2+23^SINf I 3 :YC2+23=COSC I 3 

550 IF I NT fZ'53 02'5 THEN 610 

560 LINE-C 140-50*SINCI3. 100+55*COSCI 3 3 . 5 




570 IF 2=0 THEN 610 

580 IF 2'5=3 OR 2/5=9 THEN DRAU"BIT'+STR* 





31 
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TRIVIAL 

■ Pll Wmm m S* ama <k preguntas y respues- preguntas, sobre todo aquellos 

club m^m 



lector Eduardo Casares estructura permite que los lée- 
nos envía este interesante pro- tores puedan introducir nuevas 
;s- 

lo que i 
rías. 




COMPAT I BLE ES. . 
ico :2-0puesto :3- 
T X:GOTO 2 



: 3-20": 



1-25: 
2018 

F T*="16"THEN PRI NT " DE UNA PERSONA 
O INTENTA PARECER DISTINTA DE LA RE 
D SE DICE QUE ES. . . " : :PRINT" 1-l 
2-Smcera: 3~Hum • !de " ¡PRINT ¡ INPUT X 

F TS^"17"THEN PRINT"CUANTAS PATAS T 
REALMENTE UN CIEMPIES" : :PRINT" 

1-99 ó 100: 
Ó 68! 3-42 6 46" ¡PRINTÜNPUT X:GOTO 

3"THEN PRINT"MAVQR RIO DEL M 
1-Nilo: 2 

3-Amazonas" :PRINT: INPUT X¡G 

3"THEN PRINT"MAYOR MONTAÑA D 
?INT" 1-Mont Bl 

:en; 3-Elb rus " ¡PRINT : INPUT X 



OTO 2020 
260 IF T*= 
E EUROPA" : 



!"" UN ! DAD MÜNETARI 



15"THEN PRI NT "QUE NUMERO CON 

ESTA SERIE 90.85.75,60.40.." 

: INPUT X 



="20"THEN PRINT"COMO SE DENOMIN 
DE UN CABALLO Y UNA BURR 

I-Pollino; 2 
Asno" :PRINT:INPUT X:GOTO 2010 | 
="21"THEN PR I NT " OBTENER LA QUIN 
A PARTE DE LA MITAD DE UN MILLAR" ;:PRI 
— 0: 2-200: 3-180" ¡PRINT ¡INPUT X: 

F T*="22""THEN PRINT"A QUE PAIS PERT 
■ A ISLA DE - TASMANIA -" ; :PRI 

:3-Austral a" SPRINT: INPUT X:GOTO 
2020 

- -="23"THEN PR!NT"QUIEN INUENTO E 
GRAMOFONO" : SPRINT" 1-Neujton : 

2-E¡nstein; 3-Ed ¡son 1 ' : PRI NT : INPUT X:GOT 
2020 

- -="24"THEN PRINT"BOMSA ATOMICA E 
[ROSHIMA" : :PRINT" 1-1943:2 
14: 3-1945" :PRINT:!NPUT X'.GOTO 2020 

¡="25"THEN PRINT"PR!MER SATELITE 
EN EL ESPACIO" : :PRIN T " 1-Explore 
r; 2-Spunik; 3-P i oine r" :PRINT : INPUT X:GO 
TO 2010 

="26"THEN PR¡NT"QUIEN REGENTA E 

SPAÑA AL MORIR ALFONSO X! I " ::PRINT" I-Al 



II ¡2-S 



ist ir 
i SEGUNDA GUE 



2020 
SEMANTICA" : 



-1950: 3-1945" :PR!NT:INPUT X:GOTO 2020 
380 IF Tt="31"THEN PRI NT "QUIEN MANDO CON 
STRUIR EL PALACIO DE UERSALES" : :PRINT" 



NT: INPUT X:GOT 

CUANDO EN rlADR 
I LAS. . . " : :PRIN 
:GOTO 



390 IF TS="32"THEN PRIt 
ID SON LAS 10 EN JAPON SON 
T" 1-15: 2-18: 3-16" ¡PRINT 
2010 

400 IF T*="33"THEN PRINT"DONDE NACIO EIN 
STEIN" : :PRINT" 1-Inglate 
rra: 2-Alemania: 3-EE. UU" :PRINT : INPUT X: 
GOTO 2010 

410 IF T*="34."THEN PRINT"OESCUBRIÜOR DE 
LA PENICILINA" ; : PRI NT" 1-Fischer 
: 2-Naksman; 3-Flem i ng " : PRI NT : INPUT X:GO 
TO 2020 

420 IF T*="35"THEN PRI NT "QUIEN DUO..=AR 
IS BIEN UALE UNA MISA" : :PRINT" 1-Enrique 
UII ¡2-Enrique IU:3-Luis XUI" :PRINT : INPU 



OS X" : ¡PRINT" I-Curio :2 

-Daruin :3-Roentgen" ; :PRINT:INPUT X:GOTO 
2020 

440 IF TÍ="37"THEN PRINT" CUANTO MIDE LA 
TORRE EIFFEL" : ¡PRINT" 1-280: 2 

-300: 3-293" ¡PRINT ¡INPUT X¡GOTO 2010 
450 IF T*="38"THEN PRINT"AÑO DE CONSTITU 
CION DE LA C.E.E. " : :PRINT" 1-1945: 2 

-1957: 3-1962" :PRINT:INPUT X:GOTO 2010 

"39"THEN PRINT"DONDE NACIO CHA 



RLES CHAPLIN" : 
2-Neui York: 
O 2820 
470 IF T*="4 
CAN" : ¡PRINT" 



¡PRINTÜNPUT X:GOT 
("THEN PRINT"QUE ES UN CURRI 



nejos: 3-0ri 9 en del Id 

i orna 1 ' :PRINT : INPUT X:GOTO 20¡e 
490 IF T*="42"THEN PRI NT "CUAN TOS AÑOS DU 
RO LA ERA TERCIARIA" : :PRINT" 1~6: 2-65 
~6: 3-150^6" ¡PRINT : INPUT X:GOTO 2010 
508 IF T*="43"THEN PR!NT"COMO SE LLAMA L 
A SEGUNDA FILA DE ASIENTOS EN LOS TF 

NDIDOS DE LA PLAZA OE TOROS" ::PRIN 

T" I-Tendido 2: 2 

-Contrabarreras: 3-Barrera 2" :PRIN 

TUNPUT X:GOTO 2810 

510 IF T*="44"THEN PRINT"QUE SIGNIFICA S 
OMURGAR" ; : PRI NT" 1-Soporta 
r: -2-Zambull ir: 3-Sopesar" ¡PRINT ¡ INPUT X 
¡GOTO 2010 

520 IF T*="45"THEN PRINT"QUE MARES UNE E 
L CANAL DE SUEZ" : :PRINT" 1-Mediter 
raneo-Norte :2-Mad iterraneo -Rojo: 3-Med 
i te rraneo-Neg ro " ¡PRINT ¡ INPUT X¡GOTO 2010 

538 IF T*="46"THEN PRINT"QUIEN FORJO LA 
INDEPENDENCIA DE INDONESIA" ; :PRINT" 

1-Suharto :2-Sukarno :3-Gand i " :PRINT:INPU 
T X¡GOTO 2018 

540 IF T*="47"THEN PRINT"QUIEN INUENTO E 
L TREN TALGO" : ¡PRINT" 1-J.TanUa 
k i :2-J. Torres :3-A. Go i coeche a" :PRINT:!NPU 
T X:£QTQ 2028 
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550 IF T$="48"THEN PRINT"QU!EN I NÜENTO E 
. TELEFONO" : ¡PRINT" 1-G. Be 1 1 :2-G. narco 
i ¡ :3-T.Ed Isson" ¡PRINT :INPUT x¡GOTO 2800 
560 IF T*="43"THEN PRINT "QUE ES LA TRAnO 
N-TGNA" I : PRI NT" 1-Tras mon t aÑa : 2-U ¡ en t c 
el norte. frió y seco :3-Re t emb 1 ar " ¡PRI NT : 
INPUT X: GOTO 2010 

520 IF T$="50"THEN PRINT'TON QUIEN CASO 
EL C10"::PRINT" 1 -Urraca :2-T i ¿ona :3- J . me 
i" :PRINT : INPUT X:G01"0 202e 



rec io" :PR1NT:INPUT X:GOTO 20ie 
IF T*="52"THEN PRINT 
LLON.EN INGLES. . .?" : :PRINT" 1-Bette 
" jssol ¡3-Cheek" :PRINT:!NPUT x:GOTO 2 



LENGUAJE E 



30 IF T$="53"THEN I 
IVQUE ES -STEP-" : :( 
-Paso":PRINT:INPUT X:GOTO 2020 
.10 IF T*="54"THEN PRINF'QUIEN DIJO:LA M 
UJER ES COnO UNA TAZA DE CAFE. LA PRInERA 
Z r_¿ SE TOnA NO TE DEJA DORMIR" ::PR! 
NT" l-Cela:2-Dumas:3-Sofocles" :PRINT:!np 
—~¡ 2010 

6="55" THEN PRINT"QUE AÑO SE DES 
IGNA A JUAN CARLOS REY DE ESPAÑA" : ¡ P RINÍ 
• 1-1967¡2-1963:3-1370" ¡PRINTUNPUT X:GO 
TO 2010 

630 IF T*="56"THEN PRINT"PELICULA CON nA 
S OSCARS EN TODA LA HISTORIA" : ¡PRINT" 1- 



Ben h 



■:2-Quo 



IT ¡INPUT X:GOTO 2000 
640 IF T*="57"THEN PRINT"PORQUE LA SANGR 
E ES DE COLOR ROJO" : :PRINT" 1-Moleculas 



>UT X:GOT0 2000 

¡50 IF T*="58"THFN PRINT,"QUIEN DIJO: H 
QUE ESTUDIAR nuCHO PARA SABER POCO" : : 
NT" 1-Bonaparte :2-nontesqu iu ¡3- T.Cap 
i" :PRINT: INPUT X:GOTO 2010 
660 IF T*="59" THEN PRINT'TOMO SE CALC 
EL NUnERO P¡ CJIl" : :PRINT" 1-Relacion 



ai3-Entre longitud a diámetro de cirto 
erenc ¡a" rPRINT: INPUT x:GOTO 2000 
620 IF T$="60"THEN PRI N T "QUE DIA nES Y 
ÑO NACIO EL PRINCIPE FELIPE" ; íPRINT" 
30-1-68:2-30-2-70:3-30-3-63" :PRINT:INF 

X:GOTO 2000 
680 IF T*="61" THEN PRINT"QUIEN D1J0:H 

MUJERES QUE QUIEREN TANTO A SUS nARIC 

QUE PARA NO USARLOS, TOnA'N EL DE SUS £ 
GAS"::PRINT" 1-Yues nontand ¡2-C. Ce la ;3 
TDumas":PRINT:INPUT X:GOTO 2020 
690 IF T*="62" T HEN PRINT"CUAL ES LA riF 
MA ESTATURA ALCANZADA POR UN HOMBRE" : ¡ 
INT" 1-2.50: 2-2.70: 3-2. 38" :PRINT : INF 

X:GOTO 2010 
700 IF T*="63"THEN PRINT" GANADOR UUELT 
~" -LISTA A ESPAÑA 84":.:PRINT" 1- L.Fi 
¡ 2-B.H,nolt: 3-E.Caritoux" :PR!NT:IN 
<¡GOTO 2020 



1UE NUMERO 
>RINT"1-31 



OCIOLOGICO COnO PLANTÉ 
oc ¡ología;2-Soc ¡edad 
UT X : GOTO 2010 
730 IF TS="66"THEN PRI 
TE LO QUE SUDESTE ES (■ 
e : 2-Sur 



<:GO 



Í="67"-THEN PRINT"LUI- 
A COnO TIERRA ES A " ;.:PRIh 
;2-Marte :3-Sol" :PRINT :INPUT X:GOTO 2820 
750 IF T'í ="68 "THEN PR I NT " CUANTOS DIAS h 
Y EN 4 HESES Y 3 SEnANAS" : :PRINT" 1-141 
2-145: 3-143" :PRINT:INPUT X¡GOTO 2000 
760 IF T$="69"THEN PRI NT "QUE NUMERO HUL 
IPLICADO POR DOS ES TRES UECES SEIS" : 
PRINT" 1-6: 2-3: 3-18" :PRINT : INPUT X:GC 



LOS NATURALES DE CALA-TAYUD" ; :PRINT" i -C 
" :PRINT:INPUT X:GOTO 20!0 

790 IF TS="72"THEN PRI NT "EN QUE NACION S 
E HALLA EL LAGO CONS — TANZA" : : PRINT" i-G 
rec ia:2-Suec ia:3-Su i2a" ¡PRINT: INPUT X:GO 
TO 2020 

800 IF T*="73" THEN PRINT"QUIEN FUE CUCHA 
RES"::PRINT" 1-Poeta :2-To re ro : 3-Arte 
o" :PRINT:INPUT X:GOTO 2010 
810 IF T*="74"THEN PRINT"UNA COROLA SE C 
OnPONE DE. . " : :PRINT" 1-De hojas :2-De p 
alos:3-De ramas" :PRINT: INPUT X: GOTO 2 
0 

820 IF T*="75"THEN PRINT"QUE ES OLIGARQU 
IA"::PRINT" I-Forma de gob i e rno :2-Sect 
igiosa!3-Categorla":PRINT:INPUT X:GOT 
000 

IF T*="76" THEN PRINT-QUE PAISES TIE 
UNA CIUDAD LLAMADA CORDOBA" ; '.PRINT" 
spaÑa-Peru :2-EspaÑa-Argen-t ina:3-Espa 
México" :PRINT:INPUT X:GOTO 2010 
IF T*="77"THEN PRINT"QUE ES TEISMO": 



rt: INPUT X:GOTO 2000 
850 IF T$="78"THEN PRINT"QUE ES UNA MOLE 
CULA" : :PRINT" 1-Un átomo :2-Com-b i nac i ón 
de 2 ó mas átomos :3-Un átomonegat i vo " :PR 
INT:INPUT X:GOTO 2010 

860 IF T*="73"THEN PRINT"UNA U I HUELA ES" 
::PRINT" I-Enfermedad :2-Inst ru-mento mus 
ical:3-Una serie de granos" ¡PRINT: INPUT 
X:GOTO 2010 

870 IF T*="80"THEN PRINT"UN LILIPUTIENSE 

ES"::PRINT" 1 -Nativo de Punta Umbrl 
-Un enano :3-Arbol me x i cano " :PR INT : INF 
X:GOTO 2010 

888 IF T*="81"THEN PRINT"LIBRA ES A I 
RRA COMO INDIA ES A" : :PRINT" 1-Yen 
cma:3-RuP ia" :PRINT:INPUT X:G0TO 26__ 
__J IF T*="82"THEN PRINT"QUE ES LO CONTR 
ARIO A SOBERBIA" : :PRINT" 1-Des-pot i smo :2 
' .:3-Humildad":PRINT:INPUT X:60T 



O 2020 




910 IF T*="84"THEN PRINT"TRES ENTRADAS □ 
E CINE CUESTAN 180 Pt s , CUANTAS CONSEGUIM 
OS CON 1'20 DUROS" : :PRINT" 1-12; 2-20. 
3-10" :PRINT:INPUT X:60T0 2020 
920 IF T$="85"THEN PRINT "TERMOMETRO ES. A 
TEnPERATURA COMO PI — ROMETRO ES A...";: 
PRINT" 1-Dens ¡dad ;2-Calo r :3-Ue lo c ¡ dad " :P 
RINT:INPUT X:GOTO 2010 

930 IF T*="86"THEN PRINT"LO CONTRARIO A 
HABITUAL ES. ¡PRINT" 1-Aloator 
¡o :2-Pr-obable :3-Espo rad I co " :PRINT:INPUT 
X:GOTO 2020 

940 IF T*="87"THEN PRINT"EN LA PALABRA * 
DESGRACIADAMENTE* QUE LETRA OCUPA EL MIS 
no ORDEN QUE EN EL ABECEDARIO" : :PRINT" 1 
-n:2-N;3-I" :PRINT:INPUT X:GOTO 2010 
950 IF T*="88"THEN PRINT"QUE NUMERO ESTA 
DE MAS EN ESTA SERIE 1 .3.6,9, 12»" : :PRIN 
T" 1-1 : 2-12: 3-3" :PRINT : INPUT X:GOTO 20 

960 IF T*="89"THEN PRINT"CUAL DE ESTAS F 

ALABRAS UIENE EN UL TIMO LUGAR EN EL D 

ICIONARIO" : :PRINT" 1 -Burro :2-Busto :3-Buf 
alo" :PRINT:INPUT X:GOTO 2010 
970 IF T*="90"THEN PRINT"LONDRES ES A IN 
GLATERRA LO QUE TEL- AUIU ES A. ": ¡PRINT 
" 1-SI ria:2-Eg Ipto :3-Israel" :PRINT:INPUT 

X:GOTO 2020 
980 IF T*="91"THEN PRINT" PEDRO ES MAS J 
OUEN QUE JUAN Y PEDRO ES MAS UIEJO QUE L 

UIS. ENTONCES LUIS QUE JUAN"::PRINT 

" 1-Mas jouan ;2-Mas uieJo:3-De la misma 
edad" :PRINT: INPUT X:GOTO 2000 
990 IF T*="92"THEN PRINT"CUAL ES EL NUME 
RO QUE MULTIPLICADO POR SI MISMO DA 12 
1";:PRINT" 1-12: 2-13. 3-11 " :PRINT : INPU 
T X:GOTO 2020 

1000 IF T*="93"THEN PRINT"QUIEN DIO LA N 
OTICIA DE UNA UICTORIA CELEBRE. CON LA FR 
ASE-UENI,UIDI,UINCI"::PRINT" I-Marco Ant 



DE LA CRISTIANDAD" : ¡PRINT 
ban :2-S.Sebast i an :3-Santande r" :PRINT:INP 
UT X:GOTO 2000 

1020 IF T*="95"THEN PRINT'TOMO SE LLAMAN 
LOS NATURALES OE CABRA" : :PRINT" 1-Cab r i t 
enses :2-Egab renses :3-Cab r i lenses " :PRINT: 
INPUT X:GOTO 2010 

1030 IF T*-"96"THEN PRINT"UN CONTINENTE 
LLENO PESA 5 KILOS Y SUCONTENIDO 3.CUANT 
O PESA EL CONTINENTE UACIO" : :PRINT" 1-3: 

2-2: 3-15" :PRINT:INPUT X:GOTO 2010 
1040 IF T*="97"THEN PRINT'TUANTOS DIAS F 
ALTAN PARA TERMINAR EL MES DE ENERO. SI E 
STAMOS A DIA 21 POR LA TARDE" : :PRINT" 1 
-11: 2-9: 3-10" :PRINT:INPUT X:GOTO 2020 
" '' 98" THEN PRINT"QUE ES LA CIBE 



RNETICA" : :PRIN1 



; :2-Cie 



:GOTO 2000 

1060 IF T*="99"THEN PRIÍ 
LOS BOSOUIMANOS" :PRINT" 
2-En Afr¡ca:3-En Boston' 
OTO 2010 
'1070 IF T$^"!00"THEN PR 
OS DE REUISTA MSX EXTRA 
■ " : 2-6: 3-4' 



ajaros" :PRINT:INPUT : 
DONDE HABITAN 



P'CUANTOS NUr 

W SALIDO 

=RINT: INPUT > 



** BIEN * 

LSE PRINT" ..MAL.. " :PLAY" 

GFEDC" : GOTO 2030 

2820 IF X^3 THEN PRINT " 

** BIEN **" :PLAY"CDEFG" :GOTO 2030 EL 
SE PRINT" . .MAL. . " ¡PLAY" 

GFEDC" : GOTO 2030 

2030 FOR J=l TO 2000:NEXT J:CLS:GOTO 40 
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CARRETERA 




Este programa tiene la virtud 
de introducirte de un modo ele- 
mental en la estructura de un 
programa de juegos, además de 
ser entretenido. 



Aquí no se han empleado 
sprites, de modo que se utilizan 
símbolos tanto para el coche 
como para la carretera cuyas 
curvas van apareciendo a medi- 
rá juego tiene tres niveles de 
dificultad (1-3) y para llevar el 
coche hacia la derecha tienes 
que pulsar la «P» y hacia la iz- 
quierda la «Q». Cuando el coche 
que conduces toca alguna de las 
vallas de contención la partida se 

Prueba a mejorarlo. Es apa- 
sionante hacerlo. 



18 REMXXXXXCARRETERAXXXXXX 
20 REMXXPOR .HARCELO TEL L 0** 
30 REM**. -riSX-CLUB- XX 
40 REHXXXXXXXXXXXXXXXXXXXX 
50 COLOR 10 l:CLS:KEV OFF 
60 PR.INT :PRÍNT :PRINT 

70 INPUT- "GRADO DE DIFICUL TADC 1-31 " :G 

80 M = .| , 

90 X=16:v=20 
100 K=0 

110 FOR 1 = 1 TO 30XG-.NEXT I 
120 B*=INKEv* 
130 IF B*="Q" T HEN Y=V-1 
140 IF B* = "f=- T HEN Y=Y+1 

150 PRINTTABCX1 :LErT*fC|*.^-X] :"«"RIGHT*l 
fl*.X*8-v3 

160 IF Y-X<=1 OR Y-X>=7 then 220 
170 K=K+1 

180 X = X*INTfRNDCnX31-l 
190 IF X-0 THEN X=2 
200 IF X-32 THEN X-30 
210 GOTO 110 

220 COLOR 5:PRINT" ! ! ! PLfiC" ! ! ! " 
230 PRINT ¡PRINT SPRINT 

240 PLAY"CDEFG": PRINT"HAS RECORRIDO" ;K 
10:"KM SIN ACCIDENTES" 

250 LOCATE 1 , 1 : PR I NT " RECORD " :K/10:"Kri" 
260 END 







BIORRITMOS 


Con este sencillo programa 
puedes conocer tus ciclos posi- 
tivos y negativos, en sus tres va- 
riantes fundamentales: emotivi- 


10 REM***BIORRITMOS**** 
20 REM**— MSX-CLUB— ** 

30 Din M*ci23.MCl23 
40 PI=3. 14159 

50 FOR I=1T0 1 2 : READ M*C I 3 . MC I 3 :NEXT I 
60 DATAENERO. 3 1 , FEBRERO, 28. MARZO. 31 . ABRI 

70 DATA JULIO! 31. AGOSTO. 31. SEPTIEMBRE. 30. 


Para conocer tus biorritmos tienes 

Ite, Smes ar y d año de McimientO (1m 
dos últimas cifras) y posteriormente el 
mes y el año, cuyas curvas biorrítmicas 

Las curvas que aparecen en pantalla 

les que influencian en la vida'iíumana. 


OCTUBRE, 31 , NOUIEMBRE. 30. DICI EMBRE . 3 1 
80 SCREEN0:COLOR4, 1, 1 

190 REM 


El ciclo físico es de 23 días, el emocio- 
nal de 28 y el intelectual de 33. Durante 
los períodos positivos la energía vital se 


200 INPUT"TU APELLIDO" :P* 

210 PRINT-DIA. MES. ASIO DE NACIMIENTO" 


mientras que en los negativos el orga- 


230 print-mÉsIaKio DE BIORRITMO" 


nismo recupera sus fuerzas y tiende a 
ser más pasivo. El punto cero corres- 
ponde a días críticos. Esto no significa 


250 IF U<A THEN PR I NT " IMPOS I BLE " :GOTO 21 


que sean especialmente peligrosos, 
pero durante ellos debemos ser muy 


0 

260 IF UI=A AND M>=U THEN PRINT" IMPOSIBLE 
" ¡GOTO 210 
280 REM**CA8-H2 

310 IF A-'4=INTCA-'4 3 THEN MC23=29 ELSF MC 
23=28 


prudentes, especialmente en aquellos 
en los que coincidan dos y tres puntos 

La F significa físico, la E, emocional, 
y la I, intelectual y en la pantalla te indi- 
can la curva correspondiente. Asimis- 


330 IF A=LJ THEN D=U-1 ELSE D=12 
340 FOR I=M+1 TO D:R=R+MCI3 :NEXT 
350 IF A=U THEN 410 
360 FOR I=A+1 TO W-l* 

370 R=R+365:IF I'4=INTCI^43 THEN R=R-M 
380 NEXT I 

390 IF W/4 = INT CUI'43 THEN MC23=29 ELSE M 
C23=28 

400 FOR 1=1 TO U-l :R=R+MC 13 :NEXT 
410 PRINT R 

490 REM 


mo verás en la parte superior derecha 
un signo + (positivo) y en la inferior un 


500 SCREEN2 

510 OPEN"GRP:"FOR OUTPUT ASttl 

520 DRAW"BM16.0" :PR I NTtt 1 , LEFT* C Pí . 10] :" 

NACIO" :j: :m$CM3 :a 

530 DRAU)"BM16, 8" :PRINT# 1 , "BIORRITMO PARA 
540 DRACd"BM16, 18" :PRINT#1 . "~" 


+24, 13.15 

620 IF J>=MCU3 THEN 650 

176" :PRINTttl.MIO*CSTR*CJ+13.2, 13 


550 LINEC18.233-C18. 1803 
560 LINEC 18, 1003-C235. 1003 
570 FOR J= 0TO CMCU3-Í3*7 

580 P=100-INTC70*SINC CR+C J^73 3*2*PI'233 3 


640 DRALÍ"BM"+STR*C7*J+223 + ", 184" :PRINT#1. 
,RIGHT*CSTR*CJ+13. 13 

660 DRAUPBM240.32" :PRINT#1, " + " :DRAU)"BM24 


590 E=100-INTC70*SINCCR+CJ/7)3*2*PI<'2833 
690 I = 10B'-INTC70*SINCCR+CJ/7 3 3*2*PI^333 3 


B, 160" SPRINT»!.»-" 

670 COLOR 6 : DRAIoJ"BM240. 88" :PR INTtt 1 , "F" 
690 COLOR 15:DRAW"BM240. 104" :PRINT#1, "I" 


610 PSETCJ+24.P3.6:PSETCJ+24.E3.4:PSETCJ 


700 A*=INPUT$C13 
710 -RUN 
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Programas , 



MENU 



20 REM * * 
30 REM «MENU». 
40 REM • • 
50 REM *********** 
¿0 KEY0FF:CLS:C0L0R: 
70 L0CATE12,0:PRINT 



Por primera vez te ofrecemos 



amas con vanas opci 
ira juegos, gráficos, soi 
c. Como puedes ver un in 
nte listado para conocer r 



80 LOCATEB, ¿SPRINT" 
90 L0CATEB,5ll 
100 LÜCATE8 ,7 



130 L0CA1 
140 LOCA! 
150 LOCA! 
160 LOCA 7 

>*=INKEY 



13:PRINT 



1030 
1120 
1480 
1570 



1720 



,17lPRIN- 
9,21 sPRINl 
*:A-VAL 
" GOTO 320 
í" BOTO 
I" GOTO 
i" GOTO 
i" GOTO 
>" GOTO 
r« GOTO 
1» GOTO 260 
260 GOSUB 1890 
270 GOSUB 1980 
280 BOSUB 2090 
290 GOSUB 2180 
300 GOSUB 2280 
310 GOTO 260 

320 CLS¡L0CATE3,5:PRINT"UTIL 
TE10,10!PRINT"PARA IR A 
" :L0CATE10,16:PRINT"LA 
330 GOSUB900 
340 CLS:L0CATE8 



5,4,4 iSCREENO 
«MENU **"!L0CATE12,ll 

- CARRERA DE COCHES" 

- DIBUJO" 

I.- PROGRAMA PARA PINTAR" 
.- CUADROS" 

LINEA CONTINUA" 
ESTRELLAS" 
MUSICA" 



«Menú» te da la posibilidad 
de poder desarrollar tu imagina- 
ción pues a medida que juegas 
vas descubriendo distintas op- 
ciones de uso para tu máquina. 
El programa ya contiene las ins- 
trucciones necesarias para cada 
caso. Como todos nuestros pro- 
gramas, este también es suscep- 
tible de ser mejorado. 



360 CLS ¡L0CATE8 ,£ 



390 CLS: PRIN 



8 :PRINT"ELIGA EL ANCHO DE PISTA" 1LOCATE8 , 12 :PRINT"DE 8 A 18" :L0C 
' > 18 THEN340 

'RINT "ELI6A LA ACELERACION" iLOCATEB , 12 |PRINT"DE 5 A 100" iLOCAT 



& L I D A KM.O 



400 FOR 1= 0 TO 20 
410 FOR TP- 0 TO VL 

420 MV»= INKEY*:IF MV*=" "THENMV*="A" 
430 IFASC(MV*)»29 THEN PC=PC-1 

I IFASC(MV*)=2B THEN PC =PC+1 
450 NEXT TP 

460 PRINT TAB(PP) "fl";TAB<PO |TAB (PP+AP) "fl" 
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470 IF PC-PP QR PC-PP+AP THEN BOTO 600 
480 IF PP<1 THEN PP-l 
490 IF PP> 17 THEN PP-l 7 
500 pp.pp+ M v 
510 VL-VL-2 

520 MV-INT (RND (1)*3)-1 

530 NEXT I 

540 KM-KM+1 

550 PRINT "KM . " { KM ; 

560 C-C+l: IF C>15 THEN C=2 

-¡0 theÍTcolor Í?c 15 ° R KM=25 ° R KM " 35 ° R KM " 45 or km " 50 dr km=60 or km = 70 or í 

580 GOTO 400 
590 COLOR 1,C 

600 IF PC-PPTHEN PRINT TAB(PC) "_" | TAB(PP+AP) "■" 
610 IF PC=PP+AP THEN PRINT TAB(PP) " m " |TAB<PC> "X" 
620 PRINT TAB<PC)"CRRRAAASSSSSS"iFOR A-l T05 : COLOR 15 , 15 , 1 il 
OR15,l,l,FORR«l TO 50 :NEXT :NEXT ¡COLOR 1,12,15 

630 PLAY ^15¡T150 ! N30 ! N40;N30;N20¡N30;N40;N30,N20,N30,N40,N30 I N20»,FOR L-1 TO 1 
SCREEN 2 
F-l 

660 FOR 6=95 TO 1 STEP- . 1 

670 CIRCLE (130,8) ,F,1 

680 F-F+ 8 ■ IF F>100 60T0 700 

690 NEXT G 

700 SCREEN 0 

IF KM>HS THEN HS-KM iCLS iLOCATEB , 10 1 PRINT "ERES EL NUEVO RECORD 

720 FORT-1TO2000:NEXTT 

730 IF KM-HS THEN GOSUB 940 

740 CLS¡LOCATE12,10:PRINT"HAS HECHO" ¡KM ; "KM . " 

750 FORT-lTO2000:NEXTTiCLS:LOCATE5,10¡PRINT"QUIERES JUGAR DE NUEVO S/N" 

T 7 O2000^E^;?C?S*:;C; O TH 6S CLS ' L ° C ^.^^»ENTONCES HASTA OTRA, AMIGO" iFORT-1 
™ IF KM>9 AND KM<25 THEN GOSUB 920 

IF KM>24 AND KM<50 THEN GOSUB 1000 
IF KM>49 AND KM<75 THEN GOSUB 960:GOSUB 980 
820 IF KM>74 AND KM<100 THEN GOSUB 900 
830 IF KM>99 THEN GOSUB 850 ¡GOSUB 870 
840 GOTO 400 

PL A Y " T250 ) 08 ¡ N35 ¡ N30 j N32 ¡ T220 ; 08 ¡ N35 ¡ T220 ¡ 08 j N0 ¡ N0 ¡ N0 ¡ N30 ¡ N32 ¡ T220 ¡ 08 i N35 ¡ T 
^^^'^S'^f^í 32 ' 7208 ' 08 ^ 35 ' 1258 ' 08 ^ 0 ^ 0 N0 N30¡N32¡N35;N37;N32¡N35¡N37 
!N0 ¡N0 ;N32 ;N35 ¡N37 ;N0 ;N0 ;N0 ;N32 ;N35 jN37 ;N0 ¡N0 ;N0 ;N32 ¡N35 ;N37" 

«™ pÍ"2Í :::^?'°e|Nl»¡ i N0)N0¡N10,N0,N0 i N0 ! N0;N14¡N17 5 N14 i N10¡NO ,N0 ¡N10 ;N0 ¡N0" 

870 PLAY "T200;O8 ! N0¡N0¡N14 ! N17¡N14¡N15,N0¡N0 i N15,N0;N0" 

PLAY "T200;O8;N19¡N22;N19jN15¡N15¡N0¡N0:N19!N22¡N19!N10¡N0:N0¡N10¡N0-N0-N14 1 

r™ 7 ,N0 iN0 ;N17 iN0 ;N0 iN21 ;N24 ;N21 ! " 15 ' N0 >" 0 !NÍ5 í»iS!3iCT¡5i^wSi ' 

p m, ^mÍ^' ÜÍ^b^wÍo ^ »N10;N10¡N14;N17¡N19 ;N20 ¡N19;N17;N10|N10;N14¡N17;N19 ;N20 ¡NI 
■'-V'h o'm^'m !' N22 ' N24 ' N25 > N24 » N 22|N15,N15,N19,N22¡N24;N25;N24 N22 N10 N10 NI 
2!n10" N20 ' N19iN17;N17 ' N17íN21 ' N24 ' N26 ¡ N27 ' N26 l N2 '»¡N15¡N15¡N19 ! N22,N24¡N25¡N2 

üÉturn 

920 PLAY " T250 ¡ 08 ¡ N55 ¡ N55 ¡ N54 ¡ N5 1 ( N50 ¡ N50 ¡ N50 ¡ N5 1 ¡ N50 i N5 1 l N50 l N5 1 ¡ N54 ¡ N55 • N54 • N5 
1 ;N50 ,N50 ;N51 ,N51 ,N50 ;N47 ;N46 ,N46 ;N46 ,N47 | N 46 |n47 |n46 |n47 \ N ll ¡£¡ |n5¿ |n47 ¡M6 |n4 

930 RETURN 

938 RE?URN T150 iO8,N20 ' N24 ' N27 ^20^24^27^25 ^28^27^25^23 ;N21 ¡N28" 
970 1 RETURN 715 " ' N30 ' N34 ' N37 ,NM ' N34 ' N3? iN35 ' N38 jN3? ,N35 ' N33 iN31 ' N30 " 
990 rp?ur7 150;O8íN40;N44!N47 ' N40íN44!N47íN45;N48!N47!N45!N43 ' N ^ 



Programas 



25 ¡N27 ;N22 ;N25 ;N27 ;N27 ;N22 ¡N25 )N27 ¡N27 ¡N22 ;N25 ;N27 ¡N 
25" 

S 18 RETURN 
1020 PLAY "T52sV10¡NB;NB" 
1030 REM CIRCULOS 
1040 COLOR 15,15,15 
1050 SCREEN 2 
1060 FOR A=l TO160 

1070 CIRCLE (125,95) , (32-32*C0S (A/60*3 . 1416) +30+30»SIN (A/60*3 . 1416) ) ,8 
1080 LINE (125,95>-(120-120»COS(A/60*3.1416> , 100+100*SIN (A/60»3 . 1416) > 
1090 LINE (125, 95)-(100-100*COS(A/60*3. 1416) , 100+100*SIN ( A/60«3 . 1416) ) 
1100 NEXT A 

110 GOTO 1060 
1120 REM PINTAR 



1130 CLS 

1140 L0CATE3,1 iPRINT 
PARA COMENZAR A PIN 

1150 L0CATE3,5:PRINT"« USE LOS MANDOS DEL CURSOR PARA " l L0CATE6 , 7 I PR I NT " MOVER EL 



PULSE LA BARRA DE ESPACIOS Y UN" 1LOCATE6 ,3 :PRI NT "NUMERO , 



CON C Y UN NUMERO, 
» CON P, RELLENARAS DE COLOR" 



I " 1 L0CATE6 , 1 1 : PR I NT " C I RCULO 



1170 L0CATE3,13:PRINT' 
1180 L0CATE3,15:PRINT' 
EL PINCEL" 

1190 L0CATE13.21 :PRINT"PULSA Ul> 
1200 A»=INKEY*:IFA*=""THEN1200 
1210 CLS 

9 L0CATE8 ,6 :PRINT"* „QUE RESOLUCION 



I" iL0CATE6,17iPRINT"PASA 



■RINT"2 PARA ALTA RESOLUCION' 
»-INKEY*:H=VAL(A*> 

- H<2 OR H>3 BOTO 1220 
=1 :IFH=3THENV=4 

1260 X-100:Y-100 
1270 C0L0R15,15,1 
1280 SCREEN H 

«=INKEY* 
1300 IFA»«"" THEN 1400 

- A*=" "THEN 1420 

- A»-"B"THENC=15lN-14l 

- a * = " P " THENPA I NT <X+V,Y+V),I 
: A*="C" THEN 1450 

1350 B=ASC(A*> 
1360 IF B=2B THEN X-X+V 
> IF B»29 THEN X-X-V 
1380 IF B=30 THEN Y=Y-V 

- B=31 THEN Y=Y+V 
1400 PSET(X ,Y) ,N:PSET(X ,Y> ,C 

(10 BOTO 1290 

»20 A*=INKEY»iIF A»=" "THEN1420 
1 430 C= ( V AL ( A* ) ) +5 : N= 1 5 : I FC=5THEND 
1440 BOTO 1290 

¡»INKEY*iIF A*=""THEN1450 



1460 K 



.(A*)*l 



1470 CIRCLE ( 
1480 REM CUADROS 

SCREEN2 
1500 X=RND(1)*300 
1510 Y=RND(1>»200 
1520 Z=RND(1)*200 
1530 W=RND(1)*200 
1540 C=RND(1)*15 



,C:GOTO1290 




550 LINEIX ,Y )-(Z ,W ) ,C,BF 
560 GOTO 1500 
570 SCREEN 1 
.580 REM **** 
L590 LETI=7¡J=1:CLS 
'600 LETI=I+J :A*= "*##*" 

PRINT SPCÍ30-I ) ¡A* 
IF< 1=30) ORÍ 1=7) THEN LET J=J*-1 
630 GOTO 1600 
640 REM ESTRELLAS 
650 COLOR 15,1 ,1 : SCREEN 2 
660 X=INTÍRND<1>*256) 
670 Y=INTÍRNDÍ1)»192Í 
680 PSET (X,Y) 

690 A=INT<RND< 11.256) :B=INT <RND < 1 ) .256) iP=INT <RND < 1 > .192) :Q=INT (RND ( 1 ) »1 95) 
700 LINE(A,0)-(B,191) ,1:LINE(0,P)-(255,Q> .1 INI (RND ( 1 ) .192) 

710 GOTO 1660 
720 REM MUSICA 
730 CLS 

740 LOCATE10, 8 :PRINT" AUMENTE EL VOLUMEN" sLOCATEl 1 , 12 :PRINT"DE SU TELEVISOR» 

750 FORT=1TO1000¡NEXTT ' bU ,ELEVIS0R 

760 CLS:LOCATEB, 10 SPRINT"*»» MUSICA, MAESTRO !!!« 

770 V 1 *= " T 1 08O6L4CCDO5G . 06C8DEEFE . DSCEBD8C05G06C . I 
F8GL 1 2AGFL4EDCR4R4 R20" 

R20 « V2 * = " T 1 a805L4EBAD ■ G8GGA AGBAFEDE . R8R4GGGG . G86GGGG . G8GGL8AGFEL4G . F 

790 V3*="T108O4L4DEFG.A 

5CCC.04A8EF8D8G03G04C03GC R20" 
'800 F0RR=1T02 

810 PLAY V1*,V2*,V3* 

820 NEXTR 

830 FORT=lTO5500sNEXTT 

840 CLS:LOCATE10,10jPRINT",,LE HA GUSTADO?" .FORT=1TO1000 sNEXTT :CLS 
850 L0CATE3, 10 SPRINT "PUES ENTONCES DEME LAS GRACIAS" 
860 LOCATE10,12sINPUTR* 

870 I FR*<> " GRAC I AS " ANDR*<> " grac i as " THEN CLSiGOTO 1850 

880 IFR*="GRACIAS"ORR*="gracias"THENCLSsLOCATE10,10!PRINT"DE NADA, A MANDAR" -FO 

!T=lTO1000:NEXTTiCLS:GOTO 60 ' nrtNUHK ■ 

890 REM CIRCULOS 

900 COLOR 15,15,15 

910 SCREEN 2 

920 FOR A=l TO160 

lll , C Í^ LE <^.95> .<32-32.COS(A/60*3.1416) + 30 + 30.SIN(A/60#3.1416)) ,8 

lil hm 25,95 - 20-120.COS (A/60.3. 1416) , 100 + 100.SIN< A/60.3.1416 ) ,1 

960 NEXT ^ 125 ' 95) - <10l8 - 10el * COS(A/í ' a *3-^16) ,100 + 100.SIN(A/60.3.1416)) |l5 

970 RETURN 

980 REM CUADROS 

990 SCREEN2 

2000 FOR A=l TO 100 

2010 X=RND<1>*300 

2020 Y=RND(1)*200 

2030 Z=RND<1>.200 

2040 W=RND(1>*200 

2050 C=RND(1)*15 

2060 LINE(X ,Y )-(Z ,W ) ,C,BF 

2070 NEXT A 

2080 RETURN 

2090 SCREEN 1 s COLOR 15,4,7 
.00 REM SONY 
.10 LETI=7:J=1 :CLS 

20 FOR A=l TO 200 

30 LETI=I+J :A*="SONY" 

40 PRINT SPCÍ30-I ) ;A* 

50 IF( 1=30) ORÍ 1=7) THEN LET J=J*-1 

60 NEXT A 
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Programas 






CUANDO LOS 

SANTOS VAN MARCHANDO 


Con este p 
comprobar 

leza de Tosh 
el popularísi 
santos van ms 


rogramita puedes 
as posibilidades 
u MSX. Por genti- 
ba reproducimos 
no «Cuando los 
rchando». 




10 REM***** MUSICA ******* 
20 REM**GENT I LEZA TOSHIBA** 
30 REM** PARA MSX-CLUB ** 
40 REM********************* 
50 CLS:SCREEN 2 
60 LINE C5. 103rC255.903. l.BF 
70 OPEN "GRP : " FOR OUTPUT PS#1 
80 COLOR 14 

90 PSETC10.405: PRINT # 1 , "CUANDO LOS SAN 

TOS UÁN riARCHANDO" 

100 RESTORE 170 

110 FOR 1=1 TO 5 

120 RE AD A*,B* 

130 PLAY AÍ.6* 

lie NEXT 

150 GOTO 100 

160 END 

170 REM 




ps 




180 OATA "tl70sl3m5014", " t 1 706 1 3m501 1 " 
190 DATA "df +9&rldf +9ar4r2 ', "r4r2ddd" 
200 DATA "df+ga2f +2d2f +2'er4r2", "ddda" 
210 DATA "f+f+ed2.df +2aaag2. ". "addg" 
220 DATA "r4bba2f+2d2e2dl" "gdd2a2d" 

















Programas, 



GRAFICOS 



MSX es jugar a los gráfico 
programas -breves y fáciles de 
teclear- son un ejemplo de 
cómo obtener figuras -estrellas, 



M ANTONIO RODRIGUEZ TRANCHE usar los colores disponibles. 



3 REM APLICACION GRAFICA 

4 REM*ANTONIO RODRIGUEZ TRANCHE 1985* 

5 KEY OFF 

2 ^S^'^^^-E^ 8 ,9 |PRINT"DIME EL NOMBRE" 

30 LOCATE 8,11 :PRINT"DE UNA TRIBU INDIA" :L0CATE5 ,21 :PRINT"Contestar con mayuscul 

32 L0CATE1 ,23 :PRINT"Parar el progama pulsando CTRL+STOP" 
35 LOCATE 8,14:INPUT T* 

40 IF T*="SIOUX" THEN LOCATE 5 , 18 :PRINT"ESE ERA EL NOMBRE /CONTINUO" ELSE CLS :G0 

50 FOR J=0 TO 2580:NEXT 
55 KEY ON 
60 SCREEN 2 

70 CIRCLE<123,103) ,44,1 , .7854 ,2 .3562 :LINE < 152 ,72) - (94 ,72) ,1 
80 LINE<93,73)-<153.H|7I> 
90 PAINTU24.6: 
95 CIRCLE(101 ,1 



129M119,80M153,80" 
130 DRAW"C15BM153|l29M145,149D20" 

1 40 DRAW" BM93 , 79D 1 2M87 , 1 1 4R9M93 , 1 22M 103,1 25M93 , 1 28M96 , 1 40M93 , 1 45M 1 1 3 , 1 49M98 , 1 70" 

150 CIRCLE(104,92) ,2,15, ,,.5 

160 DRAW'BMl 12 , 123E12BM1 12 , 126E12" 

170 CIRCLE<178,47) ,32,15,2.3562,3.927 

180 CIRCLE( 130,47) ,32,15,5.4978,-7854 

190 CIRCLE ( 187 , 107) ,48 , 15 , 1 .5708 ,2 .3562 

200 CIRCLE(153,27) ,48,15,4.7124,5.4978 

210 DRAW"BM154,31D32BM161 ,71M180,63" 

220 DRAW"BM154,39NE3NH3D7NE4NH4D7NE4NH4D8NE3NH3" 

230 DRAW " C 1 BM94 , 1 24L45D 1 NR45U2E4L8F4 " 

240 DRAW"C15" :PAINT (50 , 120) ,1 

250 DATA 49,97,3,1 ,49,97,1 ,49,73,4,1 ,49,73,1 ,57,49,5,1 ,57,49,1 ,81 ,25,6,1 ,81 ,25,1 
260 DATA 49,97,3,15,49,97,15,49,73,4,15,49,73 , l! i, 3 .4 9,5, I '..,57,49,15, 81 ,25,6,15, 
81 ,25,15 

270 FOR 1=0 TO 3:READ A ,B ,C ,D ,E ,F ,G 
280 CIRCLE(A,B) ,C,D:PAINT<E,F) ,B 
290 FOR H=0 TO 300:NEXT 
300 NEXT I 

310 FOR 0=0 TO 3:READ A ,B ,C ,D ,E ,F ,G 
320 CIRCLE(A,B) ,C,D:PAINT(E,F) ,6 
330 FOR H=0 TO 300:NEXT 
340 NEXT 0 
350 RESTORE 
360 GOTO 250 



30 l ■. I IMKET* 
40 IF T*=""THEN 30 
45 SL RE EN 2,3 

50 DATA 0, 0,0, 0,0, 128, 64, c>3 
60 DATA 31 ,31 ,31 " 
70 DATA 0,0,60 
80 DA I A 2t,2,2^2 



,2o, 2b, 2t>, 26,9 
lo ,25b ,o3 ,60 ,252 
252,44,44,44,44,0 

0,0,0,0 

í DATA 127,31,31,20,20,20,20,0 
,40,62,62,48 
40, 88, 76, 08, 64,0 
31 ,39,71 
120,64,0,0 
50 DATA 0, 128, 192, J ¿a, 0,224, 208(200 
60 DATA 196,192,192,96,16,24,0,0 
70 FÜRJ=1 TÜ3:A*="" 
80 FÜR 1=1 T 032 
90 READ A:A*=A*+CHR*(A) 
200 NExT I 
210 SPRITE*<.j)=A* 

220 i FJ= 1 THENRESTORE90ELSE IF J=2THENREST0RE 1 



9 NEX1 
r 0RY = 



232 
234 F 
240 F 

250 PUT SPRITE 2,<X+3l 
260 PUT SPRITE3, (X+85 
270 FOR J=0TÜ60:NEXI 
280 NEXTX-.NEXTY 
290 SCREEN0 tKE t ÜN 
300 END 




■>■■ 1 ""■ — — SI TE FALTA ALGUN NUMERO DE 




PIDELO HOY MISMO! 

Para contar con la más completa 
colección de programas de MSX 

sólo tienes que recortar o 
fotocoplar el cupón y dirigirlo a 

SMSXCLUBDE 



XmSSSísSi 



■ BOLETIN DE PEDIDO - 



... de MSX CLUB DE PROGRAMAS, libre de 



s. a nombre de MANHATTAN TRANSFER, S.A. 



LISTA DE GANADORES 

Estos son los diez suscrlptores, entre los cien primeros, 
que han sido favorecidos con una grabadora Sony TCM-2. 

Francisco Javier Méndez CU - Barcelona 
Angel Torlblo san Agustín - valencia 
José Luis Rodríguez Jiménez - La Coruña 
Vicente Ledesma Gil - Madrid 
Jorge González Sanjosé - Madrid 
Juan José López - Sevilla 
Bonifacio Pérez del Corral - Zaragoza 
Antonio Martínez - Barcelona 
Jaime soler Soler ■ Badalona 
Carlos Enrique Barrlonuevo - Madrid 

Ante la extraordinaria cantidad de suscripciones que han superado con creces r 
expectativas previstas hasta el 25 de mayo, la dirección de MSX CLUB decidió 
diez fabulosos cartuchos entre todas las suscripciones recibidas hasta la fecha 
nada, excluyendo a los de la primera lista. 
Los diez suscrlptores ganadores de un cartucho son: 



Alfonso Gómez Gutiérrez 
Almuñécar (Granada) 
Raúl García Olmo - La Coruña 
iñaki Echevarría - Pamplona 
J. Guillermo Nos Martí - Castellón 
Joan M. a Torné i Barbera - Reus 



José María Albadalejo Torres - Barcelona 

Jaime coya Urioste - Madrid 

Luis Martínez Arbucio - Madrid 

Alicia Gómez Pertls - Valladolid 

JoanPalauGallmany 

Vllaf ranea del Penedes (Barcelona) 
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DOS NUMEROS EN UNO 
EL DOBLE DE PAGINAS 
EL DOBLE DE NOTICIAS 
EL DOBLE DE ARTICULOS 
EL DOBLE DE PROGRAMAS 



¡RESERVALO EN TU KIOSCO! 
SALE EL 15 DE JULIO 



49 



Programas i 



EL COMEBICHOS 



En esta ocasión "El Comebi- 
chos" ha sido capturado por los 
feroces fantasmas y lo mantie- 
nen en una celda enrejado. Pero 
ni allí está a salvo pues sus 
celeros vienen en oleadas 
tentan acabar con él. 




10 DEFSNG A-Z:GOSUB 1690 
20 ON ERROR SOTO 1490 
30 ON KEY GOSUB 1490 
40 KEY CID ON 
50 ON STOP GOSUB 1500 
60 STOP ON 
70 GOTO 1290 
80 SC=0:A=0 

90 SCREEN 2,l,0,l:KEY 0FF:C0L0R 15.1,4:CLS 

100 + SPRITE*C0J=CHR*CB0D+CHR*C126:+CHR*C255:+CHR*C255:+CHR*C255D+CHR*C255D+CHR*C1 

110 SPRITE*Cn=CHR*C60D+CHR*C126:+CHR*C248:+CHR*C224:+CHR*C240)+CHR*C252í+CHR*Cl 
26J+CHR*C60D 

120^SPRITE*C23=CHR*C60:+CHR*C 1263+CHR*C3n+CHR*C7]+CHR*C15D+CHR*C63D+CHR*C126]+C 

130 SPRITE*C3D=CHR*C0D+CHR*C66]+CHR*C23n+CHR*C23n+CHR*C2473+CHR*C255D+CHR*C126 
D+CHR*C60) 

140 SPRITE*C4:=CHR$C60D+CHR*C126D+CHR*C2555+CHR*C239D+CHR$C23n+CHR*C23n+CHRÍC6 

6)+CHR$C0) 

150 FOR R=5 TO 7 

551+CHR*C170D :=CHR * C60]+CHR * C ^ 
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170 NEXT R 
180 TIME=0 

190 ON INTERUAL=8 GÜSUB 670 
200 X=60:Y=90:SPEED=2 
210 ON SPRITE GOSUB 1240 
223 GOSUB 840:GOSUB 620 
230 SPRITE ON 
240 S=STICKCn 
250 F=STRIGC15 
260 IF S=0 THEN GOSUB 1690 
270 IF F=-l THEN GOSUB 1510 
280 IF F=0 THEN SPRITE ON 
290 IF S=3 THEN GOSUB 380 ELSE 310 
300 PUT SPRITE 0. CX, Y). 10,0 
310 IF S=7 THEN GOSUB 440 ELSE 330 
320 PUT SPRITE 0. CX, Y] . 10. 0 
330 IF S=l THEN GOSUB 500 ELSE 350 
340 PUT SPRITE 0. CX, Y:. 10,0 
350 IF S=5 THEN GOSUB 560 
360 PUT SPRITE 0. C X, Y) . 10. 0 
370 GOTO 240 
380 X=X+4 
390 GOSUB 1590 
400 IF X>110 THEN X=110 
410 PUT SPRITE 0. CX.YJ. 10, 1 
420 FOR DELAY=1 TO 10:NEXT 
430 RETURN 

450 GOSUB 1590 

460 IF X<45 THEN X=45 

470 PUT SPRITE 0, CX. Y} . 10. 2 

480 FOR DELAY=l TO 10:NEXT 

490 RETURN 

500 Y=Y-6.5 

510 GOSUB 1590 

520 IF Y<20 THEN Y = 20 

530 PUT SPRITE 0. CX.Y], 10.3 

540 FOR DELAY=l TO 10:NEXT 

550 RETURN 

560 Y=Y+6.5 

570 GOSUB 1590 

580 IF Y>143 THEN Y=143 

590 PUT SPRITE 0. CX.Y], 10,4 

600 FOR DELA V = 1 TO 10:NEXT 

620 Gl X=250:G2 X=230:G3 X=205 :*1=20 :^2=80 :^3=:30 
630 PUT SPRITE 5. CG'.X.Yi:. 13 
640 PUT SPRITE 6.CG2X.Y23.2 
650 PUT SPRITE 7. CG3X.Y33.8 
660 RETURN 

670 IF Gl X<0 AND G2 X'0 ANO G3 X'0 . : X = 250 :G2X=225 : G3X-200 

680 Y1=y 1+5: y2=Y2-+5:Y3=Y3+5 

690 IF Yi>i90 THEN Y1=0 

700 IF Y2>190 THEN Y2=0 

710 IF Y3>190 THEN Y3=0 

720 Gl X=G1 X-SPEED 

730 G2 X=G2 X-SPEED 

740 G3 X=63 X-SPEED 

750 PUT SPRITE 5.CGlX.Yi:.13 

760 PUT SPRITE 6.CG2X.V23.2 

770 PUT SPRITE 7.CG3X.Y35.8 

790 IF A>=350 THEN GOTO 1100 
800 SPEED=SPEED+. 1 
810 IF SPEED> T THEN S°EED= T 
820 TIf1E=0 

830 RETURN 



Programas i 



840 CLOSE 

850 FOR R=131 TO 166 STEP- 1 : L I NE C 0. R3- t 255. R3 . 1 2 : NEXT R 

860 FQR R=180 TO 1 95 :L INE C R, 1 05 3 - CR, 1 66 3 . 6 : NEXT R 

870 CIRCLEC187.62 3.43.3:PAINTC187.623.3 

880 FOR R=l TO 255 STEP 4 

890 IF RM75 AND R<200 THEN GOTO 920 

900 PSETCR, 1653, 12:PSETCR. 1643. 12:PSETCR-1. 1633. 13:PSETCR+1. 1633.13 

910 PSETCR. 1623.7 

920 NEXT R 

930 FOR R=45 TO 48 

940 PSET CR.203.9 

950 DRAUTD140R80U140L80" 

960 NEXT R 

970 PSET C 54, 0 3. 2 ¡L INE C 54.03-054.93.2 
980 PSETC116.03.2:LINEC116,03-C116,93.2 

990 FOR R=55 TO 125 STEP 10 :PSETCR. 203 . 9 :DRAW"D1 40" :NEXT 

1000 OPEN"GRP:"AS#l 

1010 PSETC10.303, 1 :PRINT#1, 

1020 PSET C 10,403, 1 :PRINT#1, "EL" 

1030 PSETC10.483.'l :PRINT#1, "COME" 

1040 PSET C 10. 56 3 . 1 :PRINT#1 , "BICHOS" 

1050 PSETC1 0.6.4 3.1 :PRINT#1. "////" 

1060 PSET C 120. 2 3.1 :PRINT#1 , "SUPERCONTADOR" 

1070 CLOSE 

1080 INTERUAL ON 

1090 RETURN 

1100 INTERUAL OFF:SPRITE OFF:GOSUB 1690:TXT=155 

1110 PUT SPRITE 5, C129.303. 13 

1120 PUT SPRITE 6,C129.503,2 

1130 PUT SPRITE 7, C 129.703.8 

1140 OPEN"GRP:"AS#l :PSETCTXT, 403 . 1 :PRINT (ti," CARRERAS ! " :PSETCTXT. 503 . 1 

1150 PRINT #1. "ESTA UEZ" :PSET C TXT . 603 . 1 :PRI NTI* 1 . " TU GANAS . " :PSET C TXT . 70 3 . 1 

1 160 PRINTttl . "PERO" :PSETCTXT.803 . 1 :PRINT »1. "UOLUEREMOS ! " :CLOSE 

1170 FOR R=l TO 2000:NEXTR 

.1180 SCREEN l.l,0,l:COLOR 3. 1 , 8 :CLS =V=90 :X=0 :SC=S 

1190 PRINT: PRINT: PRINT "200 PUNTOS DE BONOS. ": PRINT "BRAUO COMEBICHOS!" 

1200 FOR R=l TO 1000:NEXT R :PRINT :PRINT :PRINT"ESPERA QUE SIGUEN" :PRINT"OTRA UEZ. 

1210 PRINT .-PRINT "PERO ESTA UEZ CON BICHOS MAS UELOCES" 
1220 PRINT:PRINT:PRINT"RESULTADO HASTA AHORA"" :SC :A-0 
1230 FOR R=l TO !500:NEXT R:GOTO 90 

1240 INTERUAL OFF:SPRITE OFF,:PUT SPRITE 5, C-10. -103 . 1 :PUT SPRITE 6. C-10. -103 . 1 :P 

UT SPRITE 7. C-10. -103. 1 

1250 GOSUB 1690:FOR D=l TO 150:NEXT 

1260 FOR J=l TO 8:FOR R=l TO 4: PUT SPRITE 0. C X. v 3 , 10. R :BEEP :FOR D=l TO 10:NEXT 
D:NEXT R:NEXT J 

1270 FOR I=V T 0 200:PUT SPRITE 0. CX. I 3 . 10. 0 :NEXT 
1280 FOR R=l TO 1000. "NEXT R:GOTO 1290 
1290 SCREEN 2. 1.0. 1 ¡COLOR 5. 1, 10:CLS:RESTORC:P=0:A-0 
1300 T=20 

1310 READ CX.CY.RAO.COL 

1320 IF CX=399 THEN GOTO 1410 

1330 IF STRIGC13=-1 THEN ÜOTO 90 

1340 CIRCLECCX.CY3, RAD.COL 

1350 PAINTCCX.CY3.COL 

1360 GOTO 1310 

1370 DATA 60,60.30. 12,45, 100.20. 12.60.60. 15. 1 
1380 DATA 125,90,34.13.125,80.15.1.125.120.18.1 
1390 DATA 200,90,34.8.220.90.25.1 
1400 DATA 999.999.999,999 
1410 OPEN "GRP:"AS#1 

1420 PSET C 103. 1253. 1 :PRINT#1. "COMELO" 



103. 1 :PRINTttl , "EMPIEZA" 

20], 1 :PRINT»1, "EL ULTIMO RESULTADO FUE DE:" 
170], 1 :PRINT#1, "POR MSX CLUB" 
180] , 1 ¡PRINTttl , "PULSAR EL BOTON DEL MANDO" 
" THEN GO T 0 90 



3 PSET C60 
3 PSET C25 
3 PSET C60, 
3 PSET C50, 
3 IF STRIGC 
3 GOTO 1470 
3 RUN 

3 SCREEN0, ,1,1 :KEY ON :COLOR 15. 4, ' 
3 IF P>60 THEN RETURN 
3 SPRITE O^F 
3 p=d +4 

3 PSET CP+50. 101.7 

3 PSET CP+51. 11], 8 

3 PSET CP+52. 12:. 9 

3 IF P^60 THEN SPRITE ON:RETURN 

3 RETURN 

3 SOUND 0.255 

3 SOUND 1.6 

3 SOUND 6.31 

3 SOUND 8.16 

3 SOUND 9. 16 

3 SOUND 11, 180 

3 SOUND 12, 1 

3 SOUND 13. 14 

3 SOUND 7.Í.B00000000 

3 RETURN 

3 SOUND 8,0 : SOUND 9.0:RETURN 



:CLS:PRINT FREC0] : "BYTES LIBRES" :END 
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SIETE Y MEDIA 



programa para jugarlo en casa, 
tre amigos y contra el ordenador 
MSX, que hace de banca. 



erás que es muy divertido jugarlo. No _ 
lvides que las figuras valen medio 
unto y que si no te has pasado al pe- 
ir, tienes que esperar a que el ordena- 
or .'ambjénjp dé cartas. Una adver- 




10 CLS=PT=100 
-20 LOCATE 1,5: PRINT"PARA PEDIR CARTA F 
LSA EL ESPACIADOR": LOCATE 1.8 :PRINT " 
UANDO PREGUNTE ALGO CONTESTAR S 0 N" 



f"=0 70 10 
70 CC2,Y]=0 
80 NEXT Y :NEXT 2 

-- ^>T=0 THEN CLS: PRINT "NO TI 
ÑERO" :END 

100 CLS:LOCATE 1 . 5 :PR INT"TIENES " 
TS":LOCATE 1.9:INPUT "CUANTO QUIEfES APO 
STAR" :AP ¡LOCATE 1.9:PRINT " 

» ÍIF AP>PT OR AP<1 1 



INES DI 



HEN GOTO 100 
110 SW=0:CC=0:C 
120 GOSUB 160 
130 GOSUB 320 

- IF SU=0 THEN GOSUB 460: GOTO 120 ELS 



:7-e ; 



}>3 THEN GOTO ! 
TCRNDm*: 



IF SW=0 THEN GOTO 230 
FOR H=l TO 1500 
210 NEXT H 
220 GOTO 260 

— L*=INKEY* 
IF L*=" " THEN GOTO 260 

250 GOTO 160 

— IF CCA.B5=0 THEN CCA.B:=1 :GOTO 310 

a=intcrnoc13*10d 
if a>3 then goto 270 
290 b=intcrndcid*ib: 

3 GOTO 260 
310 RETURN 
320 C1=A+1 

330 ON Cl GOTO 340,350.360.370 
340 CA*="«" : GOTO 380 
CA*="»" : GOTO 380 
CA*="«" : GOTO 380 
370 CA$="«" 

380 LOCATE 25. 1 :PRINT , 

3 FOR 2=2 TO ll:LOCATE 25,2:PRINT " | " : 
LOCATE 33.2:PRINT " | " :NEXT 2 

400 LOCATE 25.12:PRINT "' 1" 

FOR X=26 TO 32:F0R U=2 TO 1 1 : LOCATE 
J:PRINT " " :NEXT U:NEXT X 
420 B-B+l 

430 ON B GOSUB 790.800,810.820,830,840.8 
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450 RETURN 

460 IF B=8 OR B=9 OR B=10 THEN CC=CC+.5 
ELSE CC=CC+B 

470 LOCATE 1.19:PRINT "TI ENES ";CC;" TAS 
TOS " 

480 IF CD7.5 THEN LOCATE 1,17 ELSE 560 
490 PRINT "HAS PERDIDO" 
500 PT=PT-AP:LOCATE 1,5:PRINT "tienes - 
PT;" PTS 

510 LOCATE 1,15: PRINT "QUIERES JUGAR 01 

RA UEZ?" 

520 Q*=INKEY* 



570 W*=INKEY$ 



1 : LOCATE' 1, 17': PRI 
" : RETURN 

590 IF W*="S" THEN LOCATE 1.17:PRINT " - 
" : RETURN 

600 GOTO 570 

610 IF B=8 OR B=9 OR B=!0 THEN CB=CB+ 5 
ELSE CB=CB*B 

620 LOCATE 1,2!: PRINT "LA BANCA TIENE " 
;CB:" PUNTOS " 

630 IF CB>7,5 THEN LOCATE 1,17: PRINT "ri 
E HAS GANADO" ELSE 710 

640 L0CATE^1,15 : PRINT "QUIERES JUGAR O 
650 IF CC=7,5 THEN Pr=PT+rAP*25 ELSE PT= 




660 LOCATE 1 , 5 :PR IN T " T IENES " 
670 Y*=] 



• PTS 



THEN GOTO 50 
THEN CLS: END 
700 GOTO 670 

CB>=CC THEN LOCATE 1,17: PRINT "T 
E HE GANADO" ;PT=PT-AP; ELSE GOTO 780 
720 LOCATE 1.5:PRINT "TIENES ";PT;" PTS 



"QUIERES JUGAR OT 



730 LOCATE 1,15: 
RA PARTIDA?" 
740 Y*=1NKEY* 

750 IF Y*="S" THEN GOTO 50 
760 IF Y*="N" THEN CLS: END 
770 GOTO 740 
780 RETURN 

790 LOCATE 29.6:G0SUB 980:RETURN 

800 LOCATE 29.3:G0SUB 980:LOCATE 29.9:G0 

SUB 980:RETURN 

810 LOCATE 29.3:G0SUB 980: LOCATE 29.6:G 
OSUB 980: LOCATE 29.9:G0SUB 980:RETURN 

LOCATE 27.3:G0SUB 980: LOCATE 31,3: 
GOSUB 980: LOCATE 27.9:G0SUB 980: LOCATE 

9:G0SUB 980:RETURN 
830 LOCATE 27.3:G0SUB 980: LOCATE 31,3: 
GOSUB 980: LOCATE 29,6:G0SUB 980: LOCATE 
27.9:G0SUB 980: LOCATE 31.9:G0SUB 980 :R 
ETURN 

840 LOCATE 27.3:G0SUB 980: LOCATE 31,3: 



GOSUB 980: LOCATE 27.6:G0SUB 980: LOCATE 
31,6:G0SUB 980: LOCATE 27.9:G0SUB 980: 

LOCATE 31.9:G0SUB 980:RETURN 

850 LOCATE 27.3:G0SUB 980: LOCATE 31.3: 

GOSUB 980: LOCATE 29.5:60SUB 980: LOCATE. 
27.7:G0SUB 980: LOCATE 3I.7:G0SUB 980: 

LOCATE 27,10:GOSUB 980: LOCATE 31,10:GOS 

UB 980:RETURN 

860 LOCATE 26.2 

870 PRINT "10" 

880 LOCATE 26.3:PRINT CA$ 

890 LOCATE 28.4:PRINT CA* :CA* :CA* ;CA* 

900 LOCATE 31,5:G0SUB 980: LOCATE 31,6:G 
OSUB 980: LOCATE 28.7:60SUB 980: LOCATE 
31,7:G0SUB 980: LOCATE 28.8:G0SUB 980: L 
OCATE 31.8:G0SUB 980: LOCATE 29.9:PRINT 
CA$:CA*:RETURN 
910 LOCATE 26.2:PRINT "11" 
920 LOCATE 26,3:G0SUB 980 
930 LOCATE 28,4:PRINT CA*:CA* 
940 FOR 2=5 TO 8: LOCATE 27.2 
LOCATE 31.2:G0SUB 980:NEXT 2 
,7:G0SUB 980: LOCATE 28.9:PRINT CASiCA*; 
CAS: LOCATE 31.10:GOSUB 980:RETURN 
950 LOCATE 26.2:PRINT "12" 
960 LOCATE 26.3:G0SUB 980: 
970 FOR Z=5 TO 11: LOCATE 27.2:G0SUB 980 
:NEXT Z: LOCATE 31.5:G0SUB 980: LOCATE 3 
0.6:GOSUB 980: LOCATE 29.7:G0SUB 980: LO 
CATE 28.8:G0SUB 980: LOCATE 29,9:G0SUB 9 
80: LOCATE 30.10:GOSUB 980: LOCATE 31.11 



Programa estrella ■ 



BARCELONA 
OLIMPICA 



El lector Humberto Martínez 
Barbera de Cartagena es el ai 
tor de un estupendo juego de 
atletismo, con el que apoya la 
candidatura de Barcelona a rea- 
lizar los juegos olímpicos 
1992. Tanto el juego como la 
idea son brillantes y se gana por 
lo mismo el estrellato en MSX 
CLUB. 



Como en todos los programas que 
publicamos éste también es susceptible 
de ser mejorado por nuestros lectores. 

Las instrucciones vienen incluidas 
en el mismo programa y como compro- 
barán es muy fácil de jugar. Uno de los 
jugadores emplea teclado y el otro joys- 
tick. ¡Aupa ca 



BARCELONA OLIHPICA 
nSX-CLUB-1985 



130 COLOR 1.4.4 
140 SCREEN2. 3, 0 
150 OPEN"g 
160 CLS 
170 GOSUB 
180 GOSUB 2300 
130 CLS 

200 GOSUB 1320 



240 TI _ 
250 PUT SPRITE 
C2 ANO S= ' ■ 
260 PUT SPRITE 
RC3 AND S= " " 
270 PUT SPRITE 2. 
130RC2 ANO Sl=13 
280 PUT SPRITE 3. 



ON:STRIGC23 ON 

3. Cl AND S=-1J0 

.15, C0 AND Sl = - 

I. 13. Cl AND SI— 

X>225 THENGC03=5:GOSUB 910:GOTO 3 

Xl>225 THEN GC 1 ]=5 :GOSUB 920:GOTO 

310 GOTO 250 

320 Tl = INTCTiriE'53'10 

330 PLAY"vlltl40o4abbdefgabbaf agabafedca 
feg" 

340 IF PLAYC 1 } O0THEN340 
350 CLS 

360 FORI=0TO30:PUT SPRITE I . C0. 0] . 0. I :NE- 



130RC3 
230 IF 



300 IF 
320 




398 RESTORE 420 
400 F0RI=1T03:READ X :PRESETCX. 973 :DRAUJ f. 
*:PRESETCX : 147Í :ORftUI A*:NEXTI 

430 DATA 50, 130.210 



430 T 

440 PUT SPRITE 0. t 
C2 AND S=1D 
450 PUT SPRITE 1 , 
RC3 AND S=13 
468 PUT SPRITE 2. 

1J0RC2 AND ,si = n 

470 PUT SPRITE 3. 
1 30RC3 AND Sl = 13 
488 IFX+28>50ANDX< 
1 3+5: GOTO 598 
490 IFX+28>130ANDX<125THENGOSUB320:GC13= 
"13+5:GOTO 598 

3 IFX+28>210ANDX<205THENGOSUB920 :GC 1 3= 

13+5:GOTO 590 

3 IFXl+28>210ANDXK205THENGOSUB9ie:GC0 
3C83+5:GOTO 590 

3 IFXl+28> 130ANDX1 O.25THENG0SUB91B :GC0 
3C03+5:GOTO 590 

" '1+28>58ANDXK55THENGOSUB918:GC03 = 



M.C0 AND S=-13ÜR 
l. ta. CI AND S— 130 
103. 15. C0 AND St»- 
103. 13. Cl AND Sl=- 
X<55THENGOSUB920:GC13=GC 



GC0] 
540 I 



3 590 
O 225 THENGC0 

1>225 THEN G 



¡GOTO 590 
560 IF CSTICKC03=1 OR STICKC23=i 
<4 THEN GOSUB 850 

570 IF STICKC 1 3=1 AND D<4 THEN G 

588 GOTO 440 

598 T2=INTCTIME'53/10 

600 PLAV'ul lt 14Bo4cef oddf bcdf aab 



670 Y=30 
688 FORKK=0TO1 
690 GOSUB 2520 
T=1T05 
-■?ITE 3.C: 
720 IFCSTICKC13=1 
RSTICKC"- ■ 




S3*2:GOTO 670ELSEGOTO 3008 

790 F0RI=XT0X+38 

—3 PUT SPRITE 8.C 1.663, 1.5 



888 NEXTI 

898 X1=I:D1=D1+1 

900 RETURN 

910 PRESETC30.853 :PRINT#1 . ■'GANADOR" :PUT 
SPRITE 0.C225.803.1,7:PUT SPRITE 1.C225. 
803. 13.6:RETURN 

920 PRESETC38, 1353 :PRINTttl . "GANADOR" : 



?:PUT SPRITE 3.C2 



SPRITE 2. C225. 1383. 
25. 1303. 13.6:RETURN 
930 GOSUB 3300 

940 X=22:X1=22:X2=22:S=1 :S!=! :S2=1 

950 TIHE=0 

968 X2=X2+.9:S2=-S2 

978 PUT SPRITE 8.CX.863.1.14 

980 PUT SPRITE 1 , CX. 863 , 13. f 15 AND S=l 

RC16 AND S=-13 

990 PUT SPRITE 2. C XI , 1 1 63 . 1 5, 1 4 
1088 PUT SPRITE 3.CXl.l!63.!3.ri5 ANO SI 
=130RC16 AND Sl=-13 
1018 PUT SPRITE 4 . CX2, 1463. 12, !< 
1020 PUT SPRITE 5,CX2,1463.13.fI5 AND S2 
=130RC16 AND S2=-13 

1030 IF X>208 THEN GC03=GC03+5 :6OSUB310 
RETURN 

1040 IF Xl>200 THEN GC 1 3=GU 3+5 :GOSUB920 
:RETURN 

IF X2>200 THEN RETURN 
1060 GOTO 960 



=GC03+5:GOSUB 910:G 
ll=GC13+5:GOSUB 920 



1090 RETURN 



1140 F0RI = lT032:READA*:S«=S*+CHR*r:,.-|i f 
H " +A$ 3 3 :NEXT I :SPR! TE*C 11--SS 
1150 S*="- :F0RI = 1T032 : - ,í 

1 :SPRITE*C03-S* 

D32:REmDA*:S$=G*< 
I :SPRITE*C23-S* 
1 :F0RI = lT032:READO*:S*--S*-CHR*r 

«3 3:NEXTI: 

' :F0RI=-1T02 

«33 :NEXTI :SPRITE*C4 3=S* 
' :F0RI = 1T032:READA$ :S*--S*+C 
«33 :NEXTI : SPR I TC*C53 --S* 
' :i r 0RI = lT032:REAOA*:SS^-S$'-C 
IC63--S* 

: : '¡ ; .' : ■■■:>>_ i ' ; 

«3 3 :NEXTI : " 
" :FORI=1T032:REAC 
«31 :NEXTI : - 

1 :F0RI = 1T032:READA#:S*---S4 



NEXT 
■ T032 
3 :NEXTI 



spr: ■ 



SPRITEÍC103--S* ' 



¡C93^-S* 



•:F0RI=1T032:READA*:S*-S 
«33:NEXTI:SPRITE*tm-S* 
' :F0RI-1T032:READA*:S*=S*+CHR*C 
«3) : NEXTI : SPR I TES C 1 2 1 
' :F0RI = lT032:READA*:S*=S*+CHR*r 
«33 :NEXTI :SPRITE*C133=S* 
1 :F0RI=1T032:READA*:S*=S*+CHR 
«3 3 :NEXTI :SPRITE*ri43--S* 



0 RETURN 
850 F0RI=XlT0Xl+38 
PUT SPRITE 2.CI. 
PUT SPRITE 3. CI, 



!T032:READA*:S 



. 1323-C256. I7?l.ñ.i 



Programa estrella 




1321-C15. 1721. I 
:C240.823-C250. 1223. 1 
■C240. 1323-C250, 1723.1 
50. 553-0 90,680. l." 



1540 COLOR 1 :PRES 
ELONA'92" 
1550 PUT SPRITE f 



5:PRESETC156.583 íPRINTttI . "flS 
rC15.581:PRINT#l,"BARC 



3.803.1.5 



3 PUT SPRITE 2. C0, 1303. 15.5 

3 PUT SPRITE 3. C0. 1303. 13.4 

3 PLAY"vllT100o4crci-cr-t60c. " 

3 IF PLAYC 1 3 O0THEN1600 

3 RETURN 

3 DATA 0.01.01.0.01.03.05.09 

0 DOTA 01, 0!. 01. 0f .08.0.0.0 

0 DATA 0,c0.c0.80.c0,e4,d8.c0 

0 DATA c0.c0.40.20. 10. 18.0,0 

0 DATA 0,0.0.0.01.03.01.0! 

0 DATA 0.0.0Í0.40.90.C0ÍC0 
0 DATA C0.C0. 40, 0.0, ¡8.0,0 

0 DATA 0¡0?0!0?40!e0?c0?c0 

0 DATA 0.01.01.0.0U03Í03.05 

0 DATA 05.01.02.02.04.06,0.0 

0 DATA 0,c0.c0,80.c0.o0.d0.c8 

0 DATA C0.C0.40.40.80.C0.0.0 

0 DATA 0.0.0.0.0.0.0,0 

0 DATA 0,04,03.01.03,18.10.0 

0 DATA 0.0.0.0.0,0.0.0 

0 DATA 58. f8.c0. 40.50.40.60.0 

0 DATA 0.0.0.0.0.0.0.0 

0 DATA 0.0,01.01,01,10.10.0 

0 DATA 0.0,0.0.0.0.0,0 

0 DATA 40.C0.C0.80.40.0.60.0 

0 DATA 0.05,05.04.07,01.01.01 

0 DATA 01,01.01.01.01.03.0.0 

0 DATA 0,d0.d0.90.f0,c0.c0.c0 

0 DATA c0. 40. 40. 40. 40. 60. 0,0 

0 DATA 0.0.0,0,03.01.01.01 

0 DATA 01.01,0.0,0.03.0.0 

0 DATA 0. 0.0.0. 60. C0.C0.C0 

0 DATA 00.40.0.0.0,60,0,0 

0 DATA 0.01.01.0.01. 13. 0d. 01 

■0 DATA 01.01.01.01.01.03.0.0 

0 DATA 0.c0.c0.80,c0,90.d0.e0 



1970 DATA C0, 40. 40, 40, 40. 60, 0.0 
1980 DATA 0.08.10.10.11.03,11,1 
1990 DATA 11.09.0.0,0.03.0,0 

2010 DATA C0.40Í0Í0, 0.60. 0^0 
2020 DATA 0. 0.0.0. 04, f8. 04.0 
2030 DATA 0.0.0.0.0.0.0.0 
2040 DATA 0.0.0.0.0.0,0.0 
2050 DATA 0.0.0.0.0,0.0,0 
2060 DATA 70.70.70.78,78.78,7c, 
2070 DATA 7c. 7c. 78. 78. 78. 70. 70. 
2080 DATA 0.0.0.0.0.0.0.0 
2090 DATA 0.0.0.0.0.0.0.0 
2100 DATA 0.01.01,10.09.07.01.0 
2110 DATA 03.03.07.07.02,06.0.0 
2120 DATA 0,c0.c0,80,c0.e0,d0.c 
2130 DATA 00. f0. fe, 84, 0.0. 0,0 
2140 DATA 0.0,0.0.01,03.01.01 
2150 DATA 03.03.07.07.0,06.0.0 
2160 DATA 0.0,0.0.40,60.00.00 
2170 DATA C0,f0, 64.84. 0.0, 0,0 
2180 DATA 0.0.0.0.0,0.0,03 
2190 DATA 01.03.00,0.0.0,0.0 
2200 DATA 0.0.0.0,0.0.0.0 
2210 DATA 0.0.0,0.0.0,0,0 
2220 DATA 0.0.0.0,0.0.20, 3f 
2230 DATA 01, 3f .20.0.0,0.0.0 
2240 DATA 0. 0. 0. 0. 0 , 1 9 . 1 0 . f 6 
2250 DATA f e.f 6. 18. f 0.0.0.0.0 
2260 DATA 0. 0.0. 0.0.0. 20, 3f 
2270 DATA 01. 3'f . 20.0.0.0. 0,0 
2280 DATA 0. 0 . 0. 0. 0. f 0. 1 0, f 6 
2290 DATA f e . f 6 . 1 0. 1 e . 0, 0 . 0. 0 
2300 CLS 

2310 LINEC10, 103-C240, 1823, 1 
2320 LINEC15. 153-C235. 1773.1 
2330 PAINTC11, 113.1.1 
2340 LINEC45.453-C195. 1053. 1 
2350 PRESETC50, 1003 :DRAU"c8s 
d4r2ulh-lul.lr2f3" 
2360 DRAU"82rlg2f 21 Ih2g21 le2 
2370 DRAU"dl9l 13u4g lh ld41 ls4 
2380 PAINTC51.993.8,8:PAINTC 
2390 PUT SPRITE 0.C50, 1153.1 
2400 PUT SPRITE 1.C50, 1153,1 
2410 PRESETC58, 144 3 :DRAU"cl5 
13148ul3rl6ul3" :PAINTC59. 1453. 15. 1 
2420 PSETt64. 1463 , 15 :PRINT#1 . " 1 " 
2430 PSETC81 , 1603 . 1 5 :PRINT#1 . "3" 
2440 PSETC48.1S03. 15 :PRINT*1 . "2" 
2450 LINEC100. 1233-C229. 1353. 14. BF 
TC 110. 1263 :PR INTUI. "BARCELONA -92" 
2460 PRESETC 1 27. 1431 :PRINT#1 . "H. rio 



182.673.8.8 



I FPLAY C 1 3 <> 0 Al- 

>0THEN2480 

=UT SPRITE 0. C< 



2520 CLS 

2530 FORI=0TO20:PL 
EXTI 

2540 LINEC105.523- 
2550 LINEC95.823-( 
2560 LINEC95. 1321- 



?3<>0 AND PLA 



C256.723, 1 
256. 1223,6 
C256. 1723. C 



Programa estrella 



2620 P 
2630 L 
2640 L 
2650 L 
2660 P 



ÍC95. 1223-C85,82].6 
EC85. 1323-C95, 132], 6 
EC95. 1723-C85. 1321,6 
-ÍTC87.853.6.6 



ÜC95. 1323-C105. 1723. 



13!48ijl3-i6i..:3" :PA!N7t53 
3160 PSETC64. !46: 
3170 PSETC81.1603, 



2720 
2730 
2740 



703-C35. 1703. 1 

'eeeeeeeec«»2eee«se«" 

PRESET C 103.23 :PRINT#l.fl« 



2800 PRESET C 

3 fl i "OQ0808S6QÉtOQOMOO 

3 PRESETC112.42 3 :PRINT#1,A* 
C150.553-C190.683.1.BF 



3180 PSETC48. 160: 
3190 PLAY"vl0t255c 
0t200dbacef bde, 
3200 XX--75:E0R 
3210 PUT SPRITI 
3220 PUT SPRITL _. . 
3230 FORJ=1TO30:NEX 
3240 X=72:X " 



3250 °RES! 
3260 
3270 next; 
3280 IF SI 
3230 RUN 

3310 LINE 



2850 PUT SPRI 
"C15 AND KK=1 
860 PUT SPRI 
2870 PLflV'ull 
2880 1F PLAYC 
2890 COLOR 1 



E 0.C200.803.U AND K 
1,9 

E 1.C200. 803. 13.8 
100o4crcrcrt60c. " 
3O0THEN2880 



2900 RETURN 
2910 FORI=200TO30STEP-8 
2920 PUT SPRITE 2. C I . 803 . 1 . 10 
2930 PUT SPRITE 3. C30. Y3 . 1 5. 1 1 

2950 IF Y<30 OR Y>140 THEN S= -S 
2960 NEXT I 

2970 IF Y>60 AND Y<100 THENPLAV",, i 0 t 255b 

]=GCKK3H 
2980 PUT SPRITE 2. C0. 03. 0.10 
2990 RETURN 
3000 CLS 

3010 FORI=0TO20:PUT SPRITE I . C0. 03 . 0. I :N - 



3020 LINEC0. 1303-C25I 
" " 70 PRESETC60, 103 :PI 
3040 COLOR 1 1 : PRESET 
asr 1 :•: :COLOR 1 :PRINT# 
::COLOR 1 1 :PRINT#1 , " pun' 
3050 COLOR 11 :PRESETC20.: 
aer 2 !" : :COLOR 1 :PRINT# 
: :COLOR 11 :PRINTttl. " oun 
3060 LÍNEC15.27: 
3070 LINEC15.433-C177.433. 1 
¡0 PRESETC 184, 30; — - 



SCORE" 
303 :PR¡NTtt] 
USING"ttr 



3090 F 



USING :GC 

3,1.8 
. -3.1 

:PRINT#1.USING"1 4 # 

:PRINT#l,USING"2a * 



15:PRINTItl. "1" 
15:PRINT#! . "3" 
15:PRINT#1. "2" 



'OR!=--0TO20:PUT SPRITE I,C0.03,e 
-INEf0.523-C256.525. 1 
0.03-C232.03. 1 

~~ 256.523.1 
523-f256.723. 15. SF 



3430 PRESETC0.421 :PRINT* 
3440 PRESETC156.583 :PRIN 
3450 PRESET C 40, 58 3 :PRINT 



3460 

34 70 
i --80 
!430 
i 7 00 

35 20 
3530 
3540 

3560 
3 5-0 

3530 



LINEC20.6 
LINEC24, " 
PAINTC21 
LINEC24 
LINEC24 
PUT SPR] 
PUT SPR] 
PUT SPR] 



r spr] 



863-C232. 1783. 1 



TE 2.C 



TE 3 



?ITE 4.C 
?ITE 5.C 



PUT SPR ] 

put spr: 

IF PLAYI 
RETURN 
CLS :KEY OFF 
SCREEN 0 
UIIDTH 40 



3O0THEN3590 



3130 PUT SPR I TE E 




3690 LOCATE 15,4!PRlNr "BARCELONA QLinPíL 



3700 LOCATE 15.5:PRINT" 




dor). " 

3740 D*="B 4a- Disparar la flecha con cu 
rsorx || joystick arriba y dar en la d 

3750 LOCATE 0. 7 :FORI = 1 TOLENC A*D :PRINT ni 

D*CA*. I. 1 1 : :FORJ=1TO50:NEXTJ, I 

3760 LOCATE 0. 9 :FORI = 1 TOLENCB* 3 :PRINT ni 

D#CB*.I.1D: :FORJ=1TO50:NEXTJ. I 

3770 LOCATE 0. 1 1 :F0RI = 1T0LENCC$D :PRINT M 

ID*CC*. I. n : :FORJ=-1TO50:NEXTJ. I 

3780 LOCATE 0. 1 3 :FORI=lTOLENCD*3 :PRINT n 

ID*CD*. I. 13 : :FORJ=1TO50:NEXTJ. I 

3790 LOCATE 0,17:PRINT"| Plaaer lCnegroí 

:joystiek CA3" 
3800 LOCATE 0.18:PRINT"| Player 2Cblanco 
3 : joyst ick CB1 o | | 

3810 LOCATE 9. 22 :PRINT" CPu Isa el espacio 

3820 IF STRIGC03=0 THEN 3820 
3830 RETURN 



DESCUBRE TU ORDENADOR 

LOS SECRETOS 
DEL MSX 



componer música 
oigantottuspiopio! 



de gestión,..- 

T5)©E5¡BL 




UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

DESCUBRE COMO 
AHORRAR MEMORIA 
GANAR MAS VELOCIDAD 
DE EJECUCION 
COMPONER MUSICA 
AUNA, DOS O TRES 
VOCES 
ORGANIZAR TUS 
PROPIOS PROGRAMAS 
DE GESTION, etc. 



LOS SECRETOS 
DEL MSX 



EL LIBRO QUE ESPERABAS 
¡A LA VENTA EN JULIO! 
¡RESERVALO YA Y CANA UN IMPORTANTE DESCUENTO! 

ENVIA HOY MISMO EL BOLETIN DE RESERVA 



Deseo reservar el libro LOS SECRETOS del msx, cuyo precio es de 1 .500 Ptas. y ganarme el descuen- 
to del 10%, por lo que remito talón de 1.350 Ptas. a la orden de Manhattan Transfer, S.A. 



Nombe y apellidos ... 
Calle 



... n.° ... 



_ Ciudad ... 



... DP 



Esta reserva me da derecho a recibir LOS SECRETOS DEL MSX en mi domicilio libre de gastos de en- 
vío o cualquier otro cargo. 

— "-ar en el sobre MANHATTAN TRANSFER, S.A. 

RESERVA «LOS SECRETOS DEL MSX» 
Roca i Batlle, 10-12 Bajos -08021 BARCELONA 



Programas Sony para ordenadores MSX 

Alaorden. 

^SVXT A — l a ñ o) °* taílíSi "o™*" 1 " * P ¡^í d0 Binatv Land 



Ymudx» 
mas títulos 



HÍT3ÍT 

SONY 

Pora toque guste ordenar ES3 




